[gtksourceview] perl: support use of backslash on here-doc as in <<\VISTA (same as <<'VISTA')

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

commit 1be514419647891763425fdfdeb5c0a413071d90
Author: Carnë Draug <carandraug+dev gmail com>
Date:   Fri Mar 29 04:42:04 2013 +0000

    perl: support use of backslash on here-doc as in <<\VISTA (same as <<'VISTA')

 data/language-specs/perl.lang |   10 ++++++++--
 1 files changed, 8 insertions(+), 2 deletions(-)
---
diff --git a/data/language-specs/perl.lang b/data/language-specs/perl.lang
index 2ae298d..f02f00b 100644
--- a/data/language-specs/perl.lang
+++ b/data/language-specs/perl.lang
@@ -559,7 +559,13 @@ FIXME: =pod should require an empty line before/after, as written in perlpod
     <define-regex id="here-doc-bound-char">[^\s'"=;)]</define-regex>
 
     <context id="here-doc-no-ve">
-      <start>&lt;&lt;\'(?P&lt;HDB&gt;\%{here-doc-bound-char}*)\'</start>
+      <start extended="true" dupnames="true">
+        &lt;&lt;
+        (
+          \'(?P&lt;HDB&gt;\%{here-doc-bound-char}*)\'|  # 'EOF'
+          \\(?P&lt;HDB&gt;\%{here-doc-bound-char}*)     # \EOF
+        )
+      </start>
       <end>^\%{HDB start}$</end>
       <include>
         <context sub-pattern="0" where="start" style-ref="here-doc-bound"/>
@@ -576,7 +582,7 @@ FIXME: =pod should require an empty line before/after, as written in perlpod
         &lt;&lt;
         (
           \"(?P&lt;HDB&gt;\%{here-doc-bound-char}*)\"|   # "EOF"
-          (?P&lt;HDB&gt;\%{here-doc-bound-char}*)        # EOF
+            (?P&lt;HDB&gt;\%{here-doc-bound-char}*)      # EOF
         )
       </start>
       <end>^\%{HDB start}$</end>