improve glob highlighting

--HG-- branch : pmacs2
2010-04-03 23:49:44 -04:00 · 2010-04-03 23:49:44 -04:00 · 75bc5f1092
parent 976482cda2
commit 75bc5f1092
1 changed files with 1 additions and 1 deletions
--- a/mode/perl.py
+++ b/mode/perl.py
@ -258,7 +258,7 @@ PerlGrammar.rules = [
    PatternRule('perl.class', word2 + "(?=->)"),

    PatternRule('perl.glob', r'\*(?= *{)'),
-    PatternRule('perl.glob', r'(?:(?<=[^a-zA-Z0-9_])|(?<=^)) *\*' + word2),
+    PatternRule('perl.glob', r'(?:(?<=[^a-zA-Z0-9_])|(?<=^)) *\*\$*' + word2),

    # some basic stuff
    PatternRule('delimiter', r"::|->|=>|(?<!:):(?!=:)|[,;=\?(){}\[\]\(\)]"),