[libparse-yapp-perl] 04/05: Add patch from CPAN RT to fix "Unescaped left brace in regex" warning.

[gregor herrmann]

This is an automated email from the git hooks/post-receive script.

gregoa pushed a commit to branch master
in repository libparse-yapp-perl.

commit e0b6d533e4c45f782aa3dfcf4956b961db9cf55f
Author: gregor herrmann <gregoa at debian.org>
Date:   Tue Apr 4 19:31:25 2017 +0200

    Add patch from CPAN RT to fix "Unescaped left brace in regex" warning.
    
    (Needed as well for autopkgtests.)
---
 debian/patches/series                              |  1 +
 .../patches/unescaped-left-brace-in-regexp.patch   | 47 ++++++++++++++++++++++
 2 files changed, 48 insertions(+)

diff --git a/debian/patches/series b/debian/patches/series
index 25755fc..5bda0f9 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -1,3 +1,4 @@
 man-section.patch
 pod-errors.patch
 spelling.patch
+unescaped-left-brace-in-regexp.patch
diff --git a/debian/patches/unescaped-left-brace-in-regexp.patch b/debian/patches/unescaped-left-brace-in-regexp.patch
new file mode 100644
index 0000000..adf1429
--- /dev/null
+++ b/debian/patches/unescaped-left-brace-in-regexp.patch
@@ -0,0 +1,47 @@
+Description: fix "Unescaped left brace in regex is deprecated, passed through in regex" warning
+Origin: CPAN RT#114776
+Bug: https://rt.cpan.org/Public/Bug/Display.html?id=114776
+Author: MAT at cpan.fsck.com
+Reviewed-by: gregor herrmann <gregoa at debian.org>
+Last-Update: 2017-04-04
+
+--- a/YappParse.yp
++++ b/YappParse.yp
+@@ -285,7 +285,7 @@
+         return($1, [ $1, $lineno[0] ]);
+     };
+ 
+-        $$input=~/\G{/gc
++        $$input=~/\G\{/gc
+     and do {
+         my($level,$from,$code);
+ 
+@@ -312,7 +312,7 @@
+         and return('START',[ undef, $lineno[0] ]);
+             $$input=~/\G%(expect)/gc
+         and return('EXPECT',[ undef, $lineno[0] ]);
+-            $$input=~/\G%{/gc
++            $$input=~/\G%\{/gc
+         and do {
+             my($code);
+ 
+--- a/lib/Parse/Yapp/Parse.pm
++++ b/lib/Parse/Yapp/Parse.pm
+@@ -880,7 +880,7 @@
+         return($1, [ $1, $lineno[0] ]);
+     };
+ 
+-        $$input=~/\G{/gc
++        $$input=~/\G\{/gc
+     and do {
+         my($level,$from,$code);
+ 
+@@ -907,7 +907,7 @@
+         and return('START',[ undef, $lineno[0] ]);
+             $$input=~/\G%(expect)/gc
+         and return('EXPECT',[ undef, $lineno[0] ]);
+-            $$input=~/\G%{/gc
++            $$input=~/\G%\{/gc
+         and do {
+             my($code);
+ 

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libparse-yapp-perl.git