diff options
author | Rob Hoelz <rob@hoelz.ro> | 2013-03-24 12:16:14 +0100 |
---|---|---|
committer | Rob Hoelz <rob@hoelz.ro> | 2013-03-24 12:16:14 +0100 |
commit | eae752f0cf59b9da51b6e3c7c29f870b36dd827e (patch) | |
tree | 7055d94ef39166773bf93f665024d1701e53dc96 /pygments | |
parent | 6cb8d3f1b39679d6bfc0b273c065d7f6aed62b65 (diff) | |
download | pygments-eae752f0cf59b9da51b6e3c7c29f870b36dd827e.tar.gz |
Make sure $/<...> works
Diffstat (limited to 'pygments')
-rw-r--r-- | pygments/lexers/agile.py | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/pygments/lexers/agile.py b/pygments/lexers/agile.py index 0652f412..4d14ac0d 100644 --- a/pygments/lexers/agile.py +++ b/pygments/lexers/agile.py @@ -2173,10 +2173,10 @@ class Perl6Lexer(ExtendedRegexLexer): ( _build_word_match(PERL6_BUILTINS, PERL6_IDENTIFIER_CHARS), Name.Builtin), # copied from PerlLexer ( r'[$@%&][.^:?=!~]?[' + PERL6_IDENTIFIER_CHARS + u']+(?:<<.*?>>|<.*?>|«.*?»)*', Name.Variable ), - ( r'[$][!/]', Name.Variable.Global ), + ( r'[$][!/](?:<<.*?>>|<.*?>|«.*?»)*', Name.Variable.Global ), ( r'::[?]\w+', Name.Variable.Global ), ( r'[$@%&][*][' + PERL6_IDENTIFIER_CHARS + u']+(?:<<.*?>>|<.*?>|«.*?»)*', Name.Variable.Global ), - ( r'[$](?:<.*?>)+', Name.Variable ), # XXX what about for special variables (like $/)? should I enter a variable state? + ( r'[$](?:<.*?>)+', Name.Variable ), ( r'(?:q|qq|Q)[a-zA-Z]?\s*(?P<adverbs>:[\w\s:]+)?\s*(?P<delimiter>(?P<first_char>[^0-9a-zA-Z:\s])(?P=first_char)*)', brackets_callback(String) ), # copied from PerlLexer ( r'0_?[0-7]+(_[0-7]+)*', Number.Oct ), |