perl bugfixes

--HG-- branch : pmacs2
2007-08-17 04:11:26 +00:00 · 2007-08-17 04:11:26 +00:00 · 452b32b344
parent 72e63eafc4
commit 452b32b344
1 changed files with 1 additions and 0 deletions
--- a/mode/perl.py
+++ b/mode/perl.py
@ -18,6 +18,7 @@ def _make_string_rules(forbidden=None):
        rule = PatternRule(r'scalar', r"\$[^A-Za-z0-9 \\%s](?![A-Za-z0-9_])" % forbidden)
    else:
        rule = ContextPatternRule(r'scalar', r"\$[^A-Za-z0-9 %(delim)s](?![A-Za-z0-9_])", r"\$[^A-Za-z0-9 ](?![A-Za-z0-9_])")
+
    rules = [
        PatternRule(r'octal', r'\\[0-7]{3}'),
        PatternRule(r'escaped', r'\\.'),