[libwww-wikipedia-perl] 13/15: Add a patch to fix a warning ("Unescaped left brace in regex").

gregor herrmann gregoa at debian.org
Wed Dec 23 17:54:23 UTC 2015


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

gregoa pushed a commit to branch master
in repository libwww-wikipedia-perl.

commit 9342bce15f8b67147179464ddefce907fa59dc8a
Author: gregor herrmann <gregoa at debian.org>
Date:   Wed Dec 23 18:49:01 2015 +0100

    Add a patch to fix a warning ("Unescaped left brace in regex").
---
 debian/patches/series                     |  1 +
 debian/patches/unescaped_left_brace.patch | 20 ++++++++++++++++++++
 2 files changed, 21 insertions(+)

diff --git a/debian/patches/series b/debian/patches/series
index f0540bd..5749628 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -1 +1,2 @@
 language.patch
+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..0dfbcd6
--- /dev/null
+++ b/debian/patches/unescaped_left_brace.patch
@@ -0,0 +1,20 @@
+Description: fix warning "Unescaped left brace in regex is deprecated ..."
+ Unescaped left brace in regex is deprecated, passed through in regex; marked by <-- HERE in m/\G{ <-- HERE { *(.*?) *}}/ at /usr/share/perl5/WWW/Wikipedia/Entry.pm line 292.
+ Unescaped left brace in regex is deprecated, passed through in regex; marked by <-- HERE in m/\G{{ <-- HERE  *(.*?) *}}/ at /usr/share/perl5/WWW/Wikipedia/Entry.pm line 292.
+Origin: vendor
+Author: gregor herrmann <gregoa at debian.org>
+Last-Update: 2015-12-23
+Forwarded: https://rt.cpan.org/Ticket/Display.html?id=110564
+Bug: https://rt.cpan.org/Ticket/Display.html?id=110564
+
+--- a/lib/WWW/Wikipedia/Entry.pm
++++ b/lib/WWW/Wikipedia/Entry.pm
+@@ -289,7 +289,7 @@
+         }
+ 
+         ## {{ disambig }}
+-        elsif ( $raw =~ /\G{{ *(.*?) *}}/ ) {
++        elsif ( $raw =~ /\G\{\{ *(.*?) *\}\}/ ) {
+             ## ignore for now
+             $self->{ cursor } += length( $& ) - 1;
+             next;

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



More information about the Pkg-perl-cvs-commits mailing list