Commit 40aef378 authored by Stefan Monnier's avatar Stefan Monnier

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

Accept underscores in identifiers after "sub".

Fixes: debbugs:18502
parent 057ba717
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).
......
......@@ -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.*\\)"
......
#!/usr/bin/perl
# -*- eval: (bug-reference-mode 1) -*-
sub add_funds($) {
return 0;
}
use v5.14;
my $str= <<END;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment