[gtksourceview] perl: accept only =~ and !~ as operators before // with omitted m (bug #582545)

[David Miguel Susano Pinto <davidpinto src gnome org>]

commit 362b7f909c3a7d7f751e5e8efdcdb61c61afc790
Author: Carnë Draug <carandraug+dev gmail com>
Date:   Fri Mar 1 21:25:12 2013 +0000

    perl: accept only =~ and !~ as operators before // with omitted m (bug #582545)

 data/language-specs/perl.lang |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)
---
diff --git a/data/language-specs/perl.lang b/data/language-specs/perl.lang
index bdcff36..13d7841 100644
--- a/data/language-specs/perl.lang
+++ b/data/language-specs/perl.lang
@@ -542,7 +542,7 @@ FIXME: =pod should require an empty line before/after, as written in perlpod
           </include>
         </context>
         <context style-inside="true" style-ref="regex">
-          <start>\%{operator}\s*(/)</start>
+          <start>([!=]\~)\s*(/)</start>
           <end>/[cgimosx]*</end>
           <include>
             <context sub-pattern="1" where="start" style-ref="operator"/>