[libnet-sieve-perl] 01/07: Add patch to fix warning about some unescaped left braces.
gregor herrmann
gregoa at debian.org
Tue Aug 1 21:51:54 UTC 2017
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
More information about the Pkg-perl-cvs-commits
mailing list