From fd800dcf20617418a945e15aa200c49700add162 Mon Sep 17 00:00:00 2001
From: Don Ho <don.h@free.fr>
Date: Tue, 25 Feb 2014 19:45:06 +0000
Subject: [PATCH] [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 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/PowerEditor/src/functionList.xml b/PowerEditor/src/functionList.xml
index 9e93f10a4..b00c9a229 100644
--- a/PowerEditor/src/functionList.xml
+++ b/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>