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

allow negative numbers, rather than operator+number 

--HG--
branch : pmacs2
This commit is contained in:
Erik Osheim 2009-07-25 12:08:56 -04:00
parent 0ca66531c6
commit bb31ef32d9
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
mode/perl.py
View File

@ -147,7 +147,7 @@ class PerlGrammar(Grammar):
#PatternRule('perl.cast', r'[\$\@\%\&\*](?= *{)'), #PatternRule('perl.cast', r'[\$\@\%\&\*](?= *{)'),
PatternRule('perl.number', r'0[xX][0-9A-Fa-f]+'), PatternRule('perl.number', r'0[xX][0-9A-Fa-f]+'),
PatternRule('perl.number', r'0?\.[0-9]+|[0-9]+(?:\.[0-9]+)?'), PatternRule('perl.number', r'-?0?\.[0-9]+|-?[0-9]+(?:\.[0-9]+)?'),
# built-in scalars # built-in scalars
PatternRule('perl.array', r'\$' + word2 + '(?= *\[)'), PatternRule('perl.array', r'\$' + word2 + '(?= *\[)'),