From: E. Choroba <choroba@matfyz.cz>
Date: Thu, 24 Jun 2021 16:15:07 +0000 (+0200)
Subject: Fix highlighting in cperl-mode for "for /regex/"
X-Git-Tag: emacs-28.0.90~2044
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8febca87c34b4d5810fc45ecba96a8260a4cc06d;p=emacs.git

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).
---

diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el
index fa384bcad68..3370df64919 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))