[libnet-sieve-script-perl] 04/11: Add patch to fix unescaped left brace warning

[gregor herrmann]

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

gregoa pushed a commit to branch master
in repository libnet-sieve-script-perl.

commit ed80e9f516828f56d4947699c364b9cdccb5fb04
Author: gregor herrmann <gregoa at debian.org>
Date:   Tue Aug 1 17:31:54 2017 -0400

    Add patch to fix unescaped left brace warning
    
    which will be fatal in perl 5.30.
    
    Thanks: autopkgtest.
---
 debian/patches/series                     |  1 +
 debian/patches/unescaped_left_brace.patch | 18 ++++++++++++++++++
 2 files changed, 19 insertions(+)

diff --git a/debian/patches/series b/debian/patches/series
new file mode 100644
index 0000000..e481e7c
--- /dev/null
+++ b/debian/patches/series
@@ -0,0 +1 @@
+unescaped_left_brace.patch
diff --git a/debian/patches/unescaped_left_brace.patch b/debian/patches/unescaped_left_brace.patch
new file mode 100644
index 0000000..1a903f1
--- /dev/null
+++ b/debian/patches/unescaped_left_brace.patch
@@ -0,0 +1,18 @@
+Description: fix "Unescaped left brace in regex is deprecated here (and will be fatal in Perl 5.30), passed through in regex"
+Origin: vendor
+Author: gregor herrmann <gregoa at debian.org>
+Last-Update: 2017-08-01
+Forwarded: https://rt.cpan.org/Ticket/Display.html?id=122675
+Bug: https://rt.cpan.org/Ticket/Display.html?id=122675
+
+--- a/lib/Net/Sieve/Script.pm
++++ b/lib/Net/Sieve/Script.pm
+@@ -254,7 +254,7 @@
+     }
+ 
+     my $order;
+-    while ($script_raw =~m/(if|else|elsif) (.*?){(.*?)}([\s;]?)/isg) {
++    while ($script_raw =~m/(if|else|elsif) (.*?)\{(.*?)}([\s;]?)/isg) {
+         my $ctrl = lc($1);
+         my $test_list = $2;
+         my $block = $3;

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libnet-sieve-script-perl.git