From 3a3f8104e9fcc60cf08ade1211298704ecb84e2d Mon Sep 17 00:00:00 2001
From: moculus <none@none>
Date: Wed, 18 Mar 2009 02:24:05 +0000
Subject: [PATCH] add -X operators to perl

--HG--
branch : pmacs2
---
 mode/perl.py | 1 +
 1 file changed, 1 insertion(+)

diff --git a/mode/perl.py b/mode/perl.py
index f5c6d53..9c1c009 100644
--- 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_])"),