# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1126122889 0
# Node ID c136332c98dd1db5e3f7894d2a6fa40a80915202
# Parent  86ed743ad19710bb30d9641123c9a91ca2e497d0
(perl-font-lock-syntactic-keywords):
Fix regexp for when "s///" is at the beginning of line.

diff -r 86ed743ad197 -r c136332c98dd lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Sep 07 19:29:38 2005 +0000
+++ b/lisp/ChangeLog	Wed Sep 07 19:54:49 2005 +0000
@@ -1,3 +1,8 @@
+2005-09-07  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* progmodes/perl-mode.el (perl-font-lock-syntactic-keywords):
+	Fix regexp for when "s///" is at the beginning of line.
+
 2005-09-07  Jay Belanger  <belanger@truman.edu>
 
 	* calc/calc-poly.el (math-expand-term): Multiply out any powers
diff -r 86ed743ad197 -r c136332c98dd lisp/progmodes/perl-mode.el
--- a/lisp/progmodes/perl-mode.el	Wed Sep 07 19:29:38 2005 +0000
+++ b/lisp/progmodes/perl-mode.el	Wed Sep 07 19:54:49 2005 +0000
@@ -267,12 +267,12 @@
     ("\\<sub\\s-+\\S-+\\s-*(\\([^)]+\\))" 1 '(1))
     ;; regexp and funny quotes
     ("[?:.,;=!~({[][ \t\n]*\\(/\\)" (1 '(7)))
-    ("[?:.,;=!~({[ \t\n]\\([msy]\\|q[qxrw]?\\|tr\\)\\>\\s-*\\([^])}> \n\t]\\)"
+    ("\\(^\\|[?:.,;=!~({[ \t]\\)\\([msy]\\|q[qxrw]?\\|tr\\)\\>\\s-*\\([^])}> \n\t]\\)"
      ;; Nasty cases:
      ;; /foo/m  $a->m  $#m $m @m %m
      ;; \s (appears often in regexps).
      ;; -s file
-     (2 (if (assoc (char-after (match-beginning 2))
+     (3 (if (assoc (char-after (match-beginning 3))
 		   perl-quote-like-pairs)
 	    '(15) '(7))))
     ;; TODO: here-documents ("<<\\(\\sw\\|['\"]\\)")