d6
/
pmacs3
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

small perl fix 

--HG--
branch : pmacs2
This commit is contained in:
moculus 2009-04-27 20:34:42 +00:00
parent 1a66165dbd
commit 5bcf42811f
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
mode/perl.py
View File

@ -33,7 +33,8 @@ strg1 = r"'(?:\\.|[^'\\])*'"
strg2 = r'"(?:\\.|[^"\\])*"' strg2 = r'"(?:\\.|[^"\\])*"'
wchr1 = '[a-zA-Z_]' wchr1 = '[a-zA-Z_]'
wchr2 = '[a-zA-Z0-9_]' wchr2 = '[a-zA-Z0-9_]'
hword = wchr2 + '+' wchr3 = '[-a-zA-Z0-9_]'
hword = wchr3 + '+'
word1 = wchr1 + wchr2 + '*' word1 = wchr1 + wchr2 + '*'
word2 = '(?:' + word1 + '::)*' + word1 word2 = '(?:' + word1 + '::)*' + word1
pname = '[.a-zA-Z0-9_]+' pname = '[.a-zA-Z0-9_]+'