diff options
Diffstat (limited to 'pygments/lexers/agile.py')
| -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 ), |