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

fix to scalar refs 

--HG--
branch : pmacs2
This commit is contained in:
Erik Osheim 2009-08-11 16:54:07 -04:00
parent 2fe2018158
commit 4ddf68f6a0
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
mode/perl.py
View File

@ -53,19 +53,20 @@ scalar_rules = [
PatternRule('perl.array', r'\@[_\+\-]'), PatternRule('perl.array', r'\@[_\+\-]'),
PatternRule('perl.array', r"\@\$*" + word2), PatternRule('perl.array', r"\@\$*" + word2),
PatternRule('perl.array', r'\$' + word2 + '(?=\[)'), PatternRule('perl.array', r'\$' + word2 + '(?=\[)'),
PatternRule('perl.array', r"\$(?= *\[)"),
PatternRule('perl.hash', r"\%(?= *{)"), PatternRule('perl.hash', r"\%(?= *{)"),
PatternRule('perl.hash', r'\%(?:[!]|^H)'), PatternRule('perl.hash', r'\%(?:[!]|^H)'),
PatternRule('perl.hash', r"\%\$*" + word2), PatternRule('perl.hash', r"\%\$*" + word2),
PatternRule('perl.hash', r'\$' + word2 + '(?= *\{)'), PatternRule('perl.hash', r'\$' + word2 + '(?= *\{)'),
PatternRule('perl.hash', r"\$(?= *{)"), PatternRule('perl.hash', r"\$(?= *{)"),
PatternRule('perl.scalar', r'\$[_&`\'\+\*\.|,\\";#\%=\-~\^:\?!@\$<>()\[\]](?!' + wchr2 + ')'), PatternRule('perl.scalar', r'\$[_&`\'\+\*\.|,\\";#\%=\-~\^:\?!@\$<>()\[\]](?!' + wchr2 + ')'),
PatternRule('perl.scalar', r'\$\d+(?!' + wchr2 +')'), PatternRule('perl.scalar', r'\$\d+(?!' + wchr2 +')'),
PatternRule('perl.scalar', r'\$\^(?:' + word1 + '|' + wchr1 + ')'), PatternRule('perl.scalar', r'\$\^(?:' + word1 + '|' + wchr1 + ')'),
PatternRule('perl.scalar', r'\$\^O'), PatternRule('perl.scalar', r'\$\^O'),
PatternRule('perl.scalar', r'\${\^' + word1 + '}'), PatternRule('perl.scalar', r'\${\^' + word1 + '}'),
PatternRule('perl.scalar', r'\$' + word2), PatternRule('perl.scalar', r'\$+' + word2),
] ]
def _make_string_rules(forbidden): def _make_string_rules(forbidden):