add -X operators to perl

--HG-- branch : pmacs2
2009-03-18 02:24:05 +00:00 · 2009-03-18 02:24:05 +00:00 · 3a3f8104e9
parent 60d14339c2
commit 3a3f8104e9
1 changed files with 1 additions and 0 deletions
--- a/mode/perl.py
+++ b/mode/perl.py
@ -170,6 +170,7 @@ class PerlGrammar(Grammar):

        # some basic stuff
        PatternRule(r'delimiter', r"::|->|=>|(?<!:):(?!=:)|[,;=\?(){}\[\]\(\)]"),
+        PatternRule(r'noperator', r"-[rwxoRWXOezsfdlpSbctugkTBMAC]"),
        PatternRule(r'operator', r"\+=|-=|\*=|/=|//=|%=|&=\|\^=|>>=|<<=|\*\*=|\\"),
        PatternRule(r'operator', r"\+\+|\+|<=>|<>|<<|<=|<|-|>>|>=|>|\*\*|\*|&&|&|\|\||\||/|\^|==|//|~|=~|!~|!=|%|!|\.|x(?![a-zA-Z_])"),
        PatternRule(r'noperator', r"(?:xor|or|not|ne|lt|le|gt|ge|eq|cmp|and)(?![a-zA-Z_])"),