[libnet-managesieve-perl] 01/03: Escape brace in regexp

[Salvatore Bonaccorso]

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

carnil pushed a commit to branch master
in repository libnet-managesieve-perl.

commit 961435492c4fd4a54efbec12645c192573a045a6
Author: Salvatore Bonaccorso <carnil at debian.org>
Date:   Sun Dec 27 18:00:44 2015 +0100

    Escape brace in regexp
    
    Unescaped left brace used in regexp is deprecated and issues a warning
    under Perl 5.22.
    
    Closes: #809102
---
 debian/patches/escape-brace-in-regex.patch | 21 +++++++++++++++++++++
 debian/patches/series                      |  1 +
 2 files changed, 22 insertions(+)

diff --git a/debian/patches/escape-brace-in-regex.patch b/debian/patches/escape-brace-in-regex.patch
new file mode 100644
index 0000000..81edae5
--- /dev/null
+++ b/debian/patches/escape-brace-in-regex.patch
@@ -0,0 +1,21 @@
+Description: Escape braces in regexp
+ Unescaped braces in regexp are deprecated and issue a warning
+ when used in Perl 5.22.
+Origin: vendor
+Bug: https://rt.cpan.org/Ticket/Display.html?id=110664
+Bug-Debian: https://bugs.debian.org/809102
+Forwarded: https://rt.cpan.org/Ticket/Display.html?id=110664
+Author: Salvatore Bonaccorso <carnil at debian.org>
+Last-Update: 2015-12-27
+
+--- a/lib/Net/ManageSieve.pm
++++ b/lib/Net/ManageSieve.pm
+@@ -1034,7 +1034,7 @@ sub _token {
+ 		$l =~ s/\A[[:blank:]]+//;
+ 	}
+ 
+-	if($l =~ /\A{(\d+)\+?}\r*\Z/) {	# The next $1 octets are the token
++	if($l =~ /\A\{(\d+)\+?\}\r*\Z/) {	# The next $1 octets are the token
+ 		my $cnt = $1;
+ 		$l = '';
+ 		while($cnt > 0) {	# Need some characters still
diff --git a/debian/patches/series b/debian/patches/series
new file mode 100644
index 0000000..f147473
--- /dev/null
+++ b/debian/patches/series
@@ -0,0 +1 @@
+escape-brace-in-regex.patch

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