[gtksourceview] perl: fix highlight of special variables starting with $^

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

commit bac9f6298b3732e116e3f5e1f0e51a96a826d88f
Author: Carnë Draug <carandraug+dev gmail com>
Date:   Sun Feb 24 02:18:13 2013 +0000

    perl: fix highlight of special variables starting with $^

 data/language-specs/perl.lang |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)
---
diff --git a/data/language-specs/perl.lang b/data/language-specs/perl.lang
index 6b8fca7..bdcff36 100644
--- a/data/language-specs/perl.lang
+++ b/data/language-specs/perl.lang
@@ -120,11 +120,11 @@ FIXME: =pod should require an empty line before/after, as written in perlpod
     <!-- $ is not defined in this regexp because it would conflict with
          \%{plain-variable}. $ is the current module. -->
     <define-regex id="special-variable" extended="true">
-      \$^[ADEFHILMOPSTWX]? |                                  # ($^A, ...)
+      \$\^[ADEFHILMOPSTWX]? |                                 # ($^A, ...)
       \$[\\\&quot;\[\]'&amp;`+*.,;=%~? $&gt;&lt;\(|/!-] |     # ($|, $', ...)
       \$:[^:] |            # avoid confusion with $::foo (equiv. to $main::foo)
       \$(0|[1-9][0-9]*) |  # numbered variables (regex matches)
-      @[+-]  |             # special array variables
+      @[+-] |              # special array variables
       %[!+-] | %\^H        # special hash variables
     </define-regex>