Treat the perl keyword `constant' like `bless', `return' &c

* lisp/progmodes/cperl-mode.el (cperl-block-p): Tread the perl keyword
`constant' like `bless', `return' &c

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ce4c371aeed319b888348d0cf88deef2155182fa..d14a3a8584b5f769ac4cbdf7774bfa325c412459 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2014-07-09  Sam Steingold  <sds@gnu.org>
+
+       * progmodes/cperl-mode.el (cperl-block-p): Treat the perl keyword
+       `constant' like `bless', `return' &c
+
 2014-07-09  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * rect.el (apply-on-rectangle): Check forward-line really moved to the

diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el
index c4f2b9ffe517a30845fe10d96f1dc51452b4b76c..cd60475974c59769ea923a4a13ac604cc9f91769 100644 (file)
--- a/lisp/progmodes/cperl-mode.el
+++ b/lisp/progmodes/cperl-mode.el
@@ -4828,9 +4828,9 @@ the sections using `cperl-pod-head-face', `cperl-pod-face',
       (and (memq (char-syntax (preceding-char)) '(?w ?_))
           (progn
             (backward-sexp)
-            ;; sub {BLK}, print {BLK} $data, but NOT `bless', `return', `tr'
+            ;; sub {BLK}, print {BLK} $data, but NOT `bless', `return', `tr', `constant'
             (or (and (looking-at "[a-zA-Z0-9_:]+[ \t\n\f]*[{#]") ; Method call syntax
-                     (not (looking-at "\\(bless\\|return\\|q[wqrx]?\\|tr\\|[smy]\\)\\>")))
+                     (not (looking-at "\\(bless\\|return\\|q[wqrx]?\\|tr\\|[smy]\\|constant\\)\\>")))
                 ;; sub bless::foo {}
                 (progn
                   (cperl-backward-to-noncomment (point-min))