[ENHANCEMENT] Enhance Function list: better regconization of perl function.

git-svn-id: svn://svn.tuxfamily.org/svnroot/notepadplus/repository/trunk@1191 f5eea248-9336-0410-98b8-ebc06183d4e3
This commit is contained in:
Don Ho 2014-02-25 19:45:06 +00:00
parent f558747a2d
commit fd800dcf20

View File

@ -159,7 +159,7 @@ http://notepad-plus-plus.org/features/function-list.html
</parser>
<parser id="perl_function" displayName="Perl">
<function mainExpr="sub[\s]+[\w]+[\s]*\([^\)\(]*\)[\n\s]*\{" displayMode="$className->$functionName">
<function mainExpr="^[\s]*(?<!#)[\s]*sub[\s]+[\w]+[\s]*\(?[^\)\(]*\)?[\n\s]*\{" displayMode="$className->$functionName">
<functionName>
<nameExpr expr="(sub[\s]+)?\K[\w]+"/>
</functionName>