diff options
| author | Rob Hoelz <rob@hoelz.ro> | 2013-03-23 15:59:48 +0100 |
|---|---|---|
| committer | Rob Hoelz <rob@hoelz.ro> | 2013-03-23 15:59:48 +0100 |
| commit | 1f11ea13a570d922fcb51e84de7b49dc2f60343e (patch) | |
| tree | 04c546ff030b5b22950a3ac0898c376797ccf6c8 /pygments | |
| parent | c8c8f724288cb1c7ea2d10cf83a93eeb1605ae9e (diff) | |
| download | pygments-1f11ea13a570d922fcb51e84de7b49dc2f60343e.tar.gz | |
Allow mixed bracketing characters in special quoted strings
Diffstat (limited to 'pygments')
| -rw-r--r-- | pygments/lexers/agile.py | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pygments/lexers/agile.py b/pygments/lexers/agile.py index 7f80d5b2..94763fd8 100644 --- a/pygments/lexers/agile.py +++ b/pygments/lexers/agile.py @@ -2176,7 +2176,7 @@ class Perl6Lexer(ExtendedRegexLexer): ( 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'(?:q|qq|Q)[a-zA-Z]?\s*(?P<adverbs>:[\w\s:]+)?\s*(?P<delimiter>[^0-9a-zA-Z:\s]+)', brackets_callback(String) ), + ( 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 ), ( r'0x[0-9A-Fa-f]+(_[0-9A-Fa-f]+)*', Number.Hex ), |