master 8febca8: Fix highlighting in cperl-mode for "for /regex/"

[Lars Ingebrigtsen]

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

    Fix highlighting in cperl-mode for "for /regex/"
    
    * lisp/progmodes/cperl-mode.el (cperl-find-pods-heres): Fix
    highlighting of regexp in "print for /./;" (bug#49192).
---
 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 fa384bc..3370df6 100644
--- a/lisp/progmodes/cperl-mode.el
+++ b/lisp/progmodes/cperl-mode.el
@@ -3981,7 +3981,7 @@ the sections using `cperl-pod-head-face', 
`cperl-pod-face',
                                              (not (memq (preceding-char)
                                                         '(?$ ?@ ?& ?%)))
                                              (looking-at
-                                              
"\\(while\\|if\\|unless\\|until\\|and\\|or\\|not\\|xor\\|split\\|grep\\|map\\|print\\|say\\|return\\)\\>"))))
+                                              
"\\(while\\|if\\|unless\\|until\\|for\\(each\\)?\\|and\\|or\\|not\\|xor\\|split\\|grep\\|map\\|print\\|say\\|return\\)\\>"))))
                                    (and (eq (preceding-char) ?.)
                                         (eq (char-after (- (point) 2)) ?.))
                                    (bobp))