* lisp/progmodes/perl-mode.el (perl-syntax-propertize-function):

Don't confuse "y => 3" as the beginning of a `y' operation.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index eaea2b33204a8cb2e558d2f8d7ae5914a39daaab..f83dbdd344a75f8c9828883b52d79b3ef3ae3b44 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2011-09-28  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+       * progmodes/perl-mode.el (perl-syntax-propertize-function):
+       Don't confuse "y => 3" as the beginning of a `y' operation.
+
        * emacs-lisp/debug.el (debug-convert-byte-code): Don't assume the
        object has more than 4 slots (bug#9613).
 

diff --git a/lisp/progmodes/perl-mode.el b/lisp/progmodes/perl-mode.el
index 8ca8c690f926a91ebee28a88d7a50390f97a843d..933f004bb5d1c5e5a89f7a8e3686aec49e9b61b8 100644 (file)
--- a/lisp/progmodes/perl-mode.el
+++ b/lisp/progmodes/perl-mode.el
@@ -304,11 +304,12 @@ The expansion is entirely correct because it uses the C preprocessor."
              (put-text-property (match-beginning 2) (match-end 2)
                                 'syntax-table (string-to-syntax "\""))
              (perl-syntax-propertize-special-constructs end)))))
-      ("\\(^\\|[?:.,;=!~({[ \t]\\)\\([msy]\\|q[qxrw]?\\|tr\\)\\>\\s-*\\([^])}> \n\t]\\)"
+      ("\\(^\\|[?:.,;=!~({[ \t]\\)\\([msy]\\|q[qxrw]?\\|tr\\)\\>\\s-*\\(?:\\([^])}>= \n\t]\\)\\|\\(?3:=\\)[^>]\\)"
        ;; Nasty cases:
        ;; /foo/m  $a->m  $#m $m @m %m
        ;; \s (appears often in regexps).
        ;; -s file
+       ;; y => 3
        ;; sub tr {...}
        (3 (ignore
            (if (save-excursion (goto-char (match-beginning 0))