summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGeorg Brandl <georg@python.org>2014-01-09 15:44:54 +0100
committerGeorg Brandl <georg@python.org>2014-01-09 15:44:54 +0100
commit3da17ee62e9f35316cbfa573143ce96d5d525c59 (patch)
tree3aa5b10e63e2e3889fc9dec2d36ab9d04d8a0f93
parent87b4aae95eef06b8b7c5841d69b544c8ff2434ee (diff)
downloadpygments-3da17ee62e9f35316cbfa573143ce96d5d525c59.tar.gz
backout cda25e0e1d5e
-rw-r--r--pygments/lexers/agile.py6
1 files changed, 1 insertions, 5 deletions
diff --git a/pygments/lexers/agile.py b/pygments/lexers/agile.py
index 9dc7c459..9ae71b3a 100644
--- a/pygments/lexers/agile.py
+++ b/pygments/lexers/agile.py
@@ -1941,7 +1941,7 @@ class Perl6Lexer(ExtendedRegexLexer):
mimetypes = ['text/x-perl6', 'application/x-perl6']
flags = re.MULTILINE | re.DOTALL | re.UNICODE
- PERL6_IDENTIFIER_RANGE = "['a-zA-Z0-9_:-]" # if you alter this, search for a copy made of it below
+ PERL6_IDENTIFIER_RANGE = "['a-zA-Z0-9_:-]"
PERL6_KEYWORDS = (
'BEGIN', 'CATCH', 'CHECK', 'CONTROL', 'END', 'ENTER', 'FIRST', 'INIT',
@@ -2282,10 +2282,6 @@ class Perl6Lexer(ExtendedRegexLexer):
return 0.91
if re.search(r'sub\s+\w+:\w*[^a-zA-Z0-9{(: ]', text): # Special sub/method syntax (ex. sub postcircumfix:<[ ]>)
return 0.91
- # XXX I don't like the copy+pasting of PERL6_IDENTIFIER_RANGE from above, but I don't know how to access it
- # otherwise
- if re.search(r'my\s+[\'a-zA-Z0-9_:-]+\s+[$@%(]', text): # my TYPE [$scalar|@array|%hash|($list, $of, $vars)]
- return 0.91
for line in text.splitlines():
if re.match(r'\s*(?:my|our)?\s*module', line): # module declarations