[libnet-sieve-perl] 01/07: Add patch to fix warning about some unescaped left braces.

[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-perl.

commit f081d674b9a42e11eb181ba26c2b1a2d1ffb97a4
Author: gregor herrmann <gregoa at debian.org>
Date:   Tue Aug 1 17:49:07 2017 -0400

    Add patch to fix warning about some unescaped left braces.
---
 debian/patches/series                     |  1 +
 debian/patches/unescaped_left_brace.patch | 36 +++++++++++++++++++++++++++++++
 2 files changed, 37 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..846c8f9
--- /dev/null
+++ b/debian/patches/unescaped_left_brace.patch
@@ -0,0 +1,36 @@
+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=122677
+Bug: https://rt.cpan.org/Ticket/Display.html?id=122677
+
+--- a/lib/Net/Sieve.pm
++++ b/lib/Net/Sieve.pm
+@@ -383,7 +383,7 @@
+                 if (/^"(.*)"\r?\n?$/) {
+                         $challenge = $1;
+                 } else {
+-                        unless (/^{(\d+)\+?}\r?$/m) {
++                        unless (/^\{(\d+)\+?}\r?$/m) {
+                                 $self->sfinish ( "*" );
+                                 $self->closedie ("Failure to parse server SASL response.\n");
+                         }
+@@ -572,7 +572,7 @@
+                 warn qq{Empty script "$name"?  Not saved.\n};
+                 return 0;
+         }
+-        unless (/^{(\d+)\+?}\r?$/m) {
++        unless (/^\{(\d+)\+?}\r?$/m) {
+                 die "QUIT:Failed to parse server response to GETSCRIPT";
+         }
+         my $contentdata = $_;
+@@ -581,7 +581,7 @@
+         unless (/^OK((?:\s.*)?)$/) { 
+                 die_NOmsg($_, "Script retrieval not successful, not saving");
+         }
+-        $contentdata =~ s/^{\d+\+?}\r?\n?//m;
++        $contentdata =~ s/^\{\d+\+?}\r?\n?//m;
+         
+     return $contentdata;
+ }

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