diff options
| author | Rob Hoelz <rob@hoelz.ro> | 2014-01-12 18:31:57 +0100 |
|---|---|---|
| committer | Rob Hoelz <rob@hoelz.ro> | 2014-01-12 18:31:57 +0100 |
| commit | c906f6b87ec46fb03bc96334ff32002f6559b894 (patch) | |
| tree | 5101512410962679e0b1a5c693eb5ff09f5c75f7 /pygments/lexers/agile.py | |
| parent | feb11916dec3048ee8e25f2f1127313d5ad63c3b (diff) | |
| download | pygments-c906f6b87ec46fb03bc96334ff32002f6559b894.tar.gz | |
Reapply: Improve Perl 6 heuristic to check for member variables
Diffstat (limited to 'pygments/lexers/agile.py')
| -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 17a0d449..ae925593 100644 --- a/pygments/lexers/agile.py +++ b/pygments/lexers/agile.py @@ -2274,7 +2274,7 @@ class Perl6Lexer(ExtendedRegexLexer): return 0.91 if re.search(r'[$@%]\?[A-Z]+', text): # Perl 6 compiler variables ($?PACKAGE) return 0.91 - if re.search(r'[$@%][!.][A-Za-z0-9_-]+', text): # Perl 6 member variables + if re.search(r'[$@%][!.][A-Za-z_][A-Za-z0-9_-]*', text): # Perl 6 member variables return 0.91 if re.search(r'[*][@%&]', text): # Slurpy parameters # Scalar slurpies (*$slurp) are not included because they're more rare |