From 40aef3780404fa6ecfd97f9d0c9abc4bcf99c5f8 Mon Sep 17 00:00:00 2001
From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sun, 21 Sep 2014 18:00:28 -0400
Subject: [PATCH] * lisp/progmodes/perl-mode.el
 (perl-syntax-propertize-function): Accept underscores in identifiers after
 "sub".

Fixes: debbugs:18502
---
 lisp/ChangeLog              | 7 ++++++-
 lisp/progmodes/perl-mode.el | 2 +-
 test/indent/perl.perl       | 4 ++++
 3 files changed, 11 insertions(+), 2 deletions(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ec995c1b406..e726990cacf 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2014-09-21  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* progmodes/perl-mode.el (perl-syntax-propertize-function):
+	Accept underscores in identifiers after "sub" (bug#18502).
+
 2014-09-21  Tassilo Horn  <tsdh@gnu.org>
 
 	* textmodes/reftex-sel.el (reftex-select-label-mode)
@@ -6491,7 +6496,7 @@
 	COMMAND-alternatives variable, assign COMMAND as its definition
 	name so that `describe-variable' can relocate it.
 
-2014-01-14  Matthew Leach  <matthew@mattleach.net>  (tiny change)
+2014-01-14  Matthew Leach  <matthew@mattleach.net>
 
 	* font-lock.el (font-lock-keywords): Fix typo in docstring
 	(bug#16307).
diff --git a/lisp/progmodes/perl-mode.el b/lisp/progmodes/perl-mode.el
index 476a98926e2..b4a96e741b7 100644
--- a/lisp/progmodes/perl-mode.el
+++ b/lisp/progmodes/perl-mode.el
@@ -254,7 +254,7 @@
        (1 (prog1 "\"" (perl-syntax-propertize-special-constructs end))))
       ;; Funny things in `sub' arg-specs like `sub myfun ($)' or `sub ($)'.
       ;; Be careful not to match "sub { (...) ... }".
-      ("\\<sub\\(?:[[:space:]]+[^{}[:punct:][:space:]]+\\)?[[:space:]]*(\\([^)]+\\))"
+      ("\\<sub\\(?:[\s\t\n]+\\(?:\\sw\\|\\s_\\)+\\)?[\s\t\n]*(\\([^)]+\\))"
        (1 "."))
       ;; Turn __DATA__ trailer into a comment.
       ("^\\(_\\)_\\(?:DATA\\|END\\)__[ \t]*\\(?:\\(\n\\)#.-\\*-.*perl.*-\\*-\\|\n.*\\)"
diff --git a/test/indent/perl.perl b/test/indent/perl.perl
index 6b05a5f1d07..00ef312f735 100755
--- a/test/indent/perl.perl
+++ b/test/indent/perl.perl
@@ -1,6 +1,10 @@
 #!/usr/bin/perl
 # -*- eval: (bug-reference-mode 1) -*-
 
+sub add_funds($) {
+    return 0;
+}
+
 use v5.14;
 
 my $str= <<END;
-- 
2.39.5