tyler.durden/notepad-plus-plus
1
0
Fork 0
mirror of https://github.com/notepad-plus-plus/notepad-plus-plus.git synced 2025-07-25 06:45:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fix some Perl functions not being recognized in function list issue

Browse Source 
Fix Perl functions without parentheses / with attributes are not recognized in function list issue.

Fix #4265, close #4266
This commit is contained in:
Don HO 2020-08-29 02:06:06 +02:00
parent f9fa72b9db
commit 38037035e4
3 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
PowerEditor/Test/FunctionList/perl/unitTest
View File

@ -148,6 +148,10 @@ sub VarNames($)
return (@vars); return (@vars);
} }
sub functionNoParentheses {
return 1
}
############### Start ############### ############### Start ###############
print "\npltags $VERSION by Michael Schaap <mscha\@mscha.com>\n\n"; print "\npltags $VERSION by Michael Schaap <mscha\@mscha.com>\n\n";

2
PowerEditor/Test/FunctionList/perl/unitTest.expected.result
View File

@ -1 +1 @@
{"leaves":["MakeTag","PackageName","SubName","VarNames"],"root":"unitTest"} {"leaves":["MakeTag","PackageName","SubName","VarNames","functionNoParentheses"],"root":"unitTest"}

6
PowerEditor/src/functionList.xml
View File

@ -651,10 +651,8 @@
sub sub
\s+ \s+
[A-Za-z_]\w* [A-Za-z_]\w*
\s* (\s*\([^()]*\))? # prototype or signature
\( (\s*\:\s*[^{]+)? # attributes
[^()]*
\)
\s*\{ # start of class body \s*\{ # start of class body
" "
> >