[libnet-sieve-perl] 03/06: Drop unescaped_left_brace.patch, applied upstream.

[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 a66747d2ad0e3cf68167c2d5c3405173c405ec9e
Author: gregor herrmann <gregoa at debian.org>
Date:   Sat Sep 30 14:34:15 2017 +0200

    Drop unescaped_left_brace.patch, applied upstream.
---
 debian/patches/series                     |  1 -
 debian/patches/unescaped_left_brace.patch | 36 -------------------------------
 2 files changed, 37 deletions(-)

diff --git a/debian/patches/series b/debian/patches/series
deleted file mode 100644
index e481e7c..0000000
--- a/debian/patches/series
+++ /dev/null
@@ -1 +0,0 @@
-unescaped_left_brace.patch
diff --git a/debian/patches/unescaped_left_brace.patch b/debian/patches/unescaped_left_brace.patch
deleted file mode 100644
index 846c8f9..0000000
--- a/debian/patches/unescaped_left_brace.patch
+++ /dev/null
@@ -1,36 +0,0 @@
-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