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 <car...@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 <car...@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 _______________________________________________ Pkg-perl-cvs-commits mailing list Pkg-perl-cvs-commits@lists.alioth.debian.org http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits