[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

PowerEditor/src/functionList.xml

@@ -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>