[gtksourceview] perl: here-doc - do not allow empty identifier (replace * with +) or spaces before \EOF (bug #579196

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

commit 63e3084b4663d6a7efabe1c654549a928b9ab633
Author: Carnë Draug <carandraug+dev gmail com>
Date:   Fri Mar 29 19:03:48 2013 +0000

    perl: here-doc - do not allow empty identifier (replace * with +) or spaces before \EOF (bug #579196)

 data/language-specs/perl.lang |   10 +++++-----
 1 files changed, 5 insertions(+), 5 deletions(-)
---
diff --git a/data/language-specs/perl.lang b/data/language-specs/perl.lang
index 47a1905..d033fb9 100644
--- a/data/language-specs/perl.lang
+++ b/data/language-specs/perl.lang
@@ -557,7 +557,7 @@ FIXME: =pod should require an empty line before/after, as written in perlpod
 
     <!-- #### HEREDOC STRINGS ############################################# -->
     <!-- There may not be a space between the << and the identifier, unless the
-          identifier is explicitly quoted (hence the \s* when using quotes -->
+          identifier is explicitly quoted (hence the \s* when using quotes. -->
 
     <define-regex id="here-doc-bound-char">[^\s'"=;)]</define-regex>
 
@@ -565,8 +565,8 @@ FIXME: =pod should require an empty line before/after, as written in perlpod
       <start extended="true" dupnames="true">
         &lt;&lt;
         (
-          \s*\'(?P&lt;HDB&gt;\%{here-doc-bound-char}*)\'|  # 'EOF'
-          \s*\\(?P&lt;HDB&gt;\%{here-doc-bound-char}*)     # \EOF
+          \s*\'(?P&lt;HDB&gt;\%{here-doc-bound-char}+)\'|  # 'EOF'
+             \\(?P&lt;HDB&gt;\%{here-doc-bound-char}+)     # \EOF
         )
       </start>
       <end>^\%{HDB start}$</end>
@@ -584,8 +584,8 @@ FIXME: =pod should require an empty line before/after, as written in perlpod
       <start extended="true" dupnames="true">
         &lt;&lt;
         (
-          \s*\"(?P&lt;HDB&gt;\%{here-doc-bound-char}*)\"|   # "EOF"
-               (?P&lt;HDB&gt;\%{here-doc-bound-char}*)      # EOF
+          \s*\"(?P&lt;HDB&gt;\%{here-doc-bound-char}+)\"|   # "EOF"
+             (?P&lt;HDB&gt;\%{here-doc-bound-char}+)        # EOF
         )
       </start>
       <end>^\%{HDB start}$</end>