master 733dfe2 4/4: ; Fix recent regexp-opt conversion in cperl-mode

[Stefan Kangas]

branch: master
commit 733dfe244b44de957b0d91b7726f3e053be7000a
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>

    ; Fix recent regexp-opt conversion in cperl-mode
    
    * lisp/progmodes/cperl-mode.el (cperl-init-faces): Add missing
    identifiers found by static analysis of recent change.
    Thanks to Mattias Engdegård <mattiase@acm.org>.
---
 lisp/progmodes/cperl-mode.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el
index b1a49b2..90ccdbf 100644
--- a/lisp/progmodes/cperl-mode.el
+++ b/lisp/progmodes/cperl-mode.el
@@ -5435,7 +5435,7 @@ indentation and initial hashes.  Behaves usually outside 
of comment."
             (concat
              "\\(^\\|[^$@%&\\]\\)\\<\\("
               (regexp-opt
-               '("CORE" "__FILE__" "__LINE__" "__SUB__"
+               '("CORE" "__FILE__" "__LINE__" "__SUB__" "__PACKAGE__"
                  "abs" "accept" "alarm" "and" "atan2"
                  "bind" "binmode" "bless" "caller"
                  "chdir" "chmod" "chown" "chr" "chroot" "close"
@@ -5483,7 +5483,7 @@ indentation and initial hashes.  Behaves usually outside 
of comment."
                  "evalbytes" "exists" "finally" "for" "foreach" "format" 
"given"
                  "goto" "grep" "if" "keys" "last" "local" "m" "map" "my" "next"
                  "no" "our" "package" "pop" "pos" "print" "printf" "prototype"
-                 "push" "q" "qq" "qw" "qx" "redo" "return" "s" "say" "scalar"
+                 "push" "q" "qq" "qr" "qw" "qx" "redo" "return" "s" "say" 
"scalar"
                  "shift" "sort" "splice" "split" "state" "study" "sub" "tie"
                  "tied" "tr" "try" "undef" "unless" "unshift" "untie" "until"
                  "use" "when" "while" "y"))