From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Thu, 3 Apr 2008 22:10:44 +0000 (+0000)
Subject: (perl-font-lock-syntactic-keywords): Recognize `sub ($$)'.
X-Git-Tag: emacs-pretest-23.0.90~6611
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=957e449ecc6c52f69236ce25bfc4487b5e5b7068;p=emacs.git

(perl-font-lock-syntactic-keywords): Recognize `sub ($$)'.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ca6be0f0d1d..d8aad9da953 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2008-04-03  Giuliano Procida  <giuliano.procida@googlemail.com>  (tiny change)
+
+	* progmodes/perl-mode.el (perl-font-lock-syntactic-keywords):
+	Recognize `sub ($$)'.
+
 2008-04-03  Richard Sharman  <rsharman@pobox.com>
 
 	* hilit-chg.el (highlight-changes-mode): Rename from
diff --git a/lisp/progmodes/perl-mode.el b/lisp/progmodes/perl-mode.el
index b0f513fb996..f1d1a38d950 100644
--- a/lisp/progmodes/perl-mode.el
+++ b/lisp/progmodes/perl-mode.el
@@ -265,9 +265,9 @@ The expansion is entirely correct because it uses the C preprocessor."
     ("\\$ ?{?^?[_a-zA-Z][_a-zA-Z0-9]*\\('\\)[_a-zA-Z]" (1 "_"))
     ;; format statements
     ("^[ \t]*format.*=[ \t]*\\(\n\\)" (1 '(7)))
-    ;; Funny things in sub arg specifications like `sub myfunc ($$)'
+    ;; Funny things in `sub' arg-specs like `sub myfun ($)' or `sub ($)'.
     ;; Be careful not to match "sub { (...) ... }".
-    ("\\<sub[[:space:]]+[^{}[:punct:][:space:]]+[[:space:]]*(\\([^)]+\\))"
+    ("\\<sub\\(?:[[:space:]]+[^{}[:punct:][:space:]]+\\)?[[:space:]]*(\\([^)]+\\))"
      1 '(1))
     ;; Regexp and funny quotes.
     ("\\(?:[?:.,;=!~({[]\\|\\(^\\)\\)[ \t\n]*\\(/\\)"