master 290ee34: cperl-mode: Correctly syntax highlight index/value array slices

[Lars Ingebrigtsen]

branch: master
commit 290ee3474d8c7334e12baef0f922f9622a045cd5
Author: E. Choroba <choroba@matfyz.cz>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    cperl-mode: Correctly syntax highlight index/value array slices
    
    * lisp/progmodes/cperl-mode.el (cperl-init-faces): %array[0, 1]
    should use the array face, not the hash one (bug#45373).
    
    Copyright-paperwork-exempt: yes
---
 lisp/progmodes/cperl-mode.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el
index 87542ea..2fc2d14 100644
--- a/lisp/progmodes/cperl-mode.el
+++ b/lisp/progmodes/cperl-mode.el
@@ -5666,7 +5666,7 @@ indentation and initial hashes.  Behaves usually outside 
of comment."
                  'cperl-hash-face
                'cperl-array-face)
              nil)                      ; arrays and hashes
-            ("\\(\\([$@]+\\)[a-zA-Z_:][a-zA-Z0-9_:]*\\)[ \t]*\\([[{]\\)"
+            ("\\(\\([$@%]+\\)[a-zA-Z_:][a-zA-Z0-9_:]*\\)[ \t]*\\([[{]\\)"
              1
              (if (= (- (match-end 2) (match-beginning 2)) 1)
                  (if (eq (char-after (match-beginning 3)) ?{)