[gtksourceview] perl: here-doc - do not allow empty identifier (replace * with +) or spaces before \EOF (bug #579196
- From: David Miguel Susano Pinto <davidpinto src gnome org>
- To: commits-list gnome org
- Cc:
- Subject: [gtksourceview] perl: here-doc - do not allow empty identifier (replace * with +) or spaces before \EOF (bug #579196
- Date: Fri, 29 Mar 2013 19:05:23 +0000 (UTC)
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">
<<
(
- \s*\'(?P<HDB>\%{here-doc-bound-char}*)\'| # 'EOF'
- \s*\\(?P<HDB>\%{here-doc-bound-char}*) # \EOF
+ \s*\'(?P<HDB>\%{here-doc-bound-char}+)\'| # 'EOF'
+ \\(?P<HDB>\%{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">
<<
(
- \s*\"(?P<HDB>\%{here-doc-bound-char}*)\"| # "EOF"
- (?P<HDB>\%{here-doc-bound-char}*) # EOF
+ \s*\"(?P<HDB>\%{here-doc-bound-char}+)\"| # "EOF"
+ (?P<HDB>\%{here-doc-bound-char}+) # EOF
)
</start>
<end>^\%{HDB start}$</end>
[
Date Prev][
Date Next] [
Thread Prev][
Thread Next]
[
Thread Index]
[
Date Index]
[
Author Index]