[Emacs-diffs] Changes to emacs/lisp/progmodes/perl-mode.el

[Stefan Monnier]

Index: emacs/lisp/progmodes/perl-mode.el
diff -u emacs/lisp/progmodes/perl-mode.el:1.65 
emacs/lisp/progmodes/perl-mode.el:1.66
--- emacs/lisp/progmodes/perl-mode.el:1.65      Wed Apr 12 05:11:12 2006
+++ emacs/lisp/progmodes/perl-mode.el   Thu May  4 21:58:34 2006
@@ -923,8 +923,9 @@
   (or arg (setq arg 1))
   (if (< arg 0) (forward-char 1))
   (and (/= arg 0)
-       (re-search-backward 
"^\\s(\\|^\\s-*sub\\b[^{]+{\\|^\\s-*format\\b[^=]*=\\|^\\."
-                          nil 'move arg)
+       (re-search-backward
+        "^\\s(\\|^\\s-*sub\\b[ \t\n]*\\_<[^{]+{\\|^\\s-*format\\b[^=]*=\\|^\\."
+        nil 'move arg)
        (goto-char (1- (match-end 0))))
   (point))