[libdate-pcalc-perl] 01/06: Add patch to fix "Unescaped left brace" warning/error.
gregor herrmann
gregoa at debian.org
Sun May 21 10:01:20 UTC 2017
This is an automated email from the git hooks/post-receive script.
gregoa pushed a commit to branch master
in repository libdate-pcalc-perl.
commit 7191f9a165c20cfcd6a0efdbccdaae41529ca228
Author: gregor herrmann <gregoa at debian.org>
Date: Sun May 21 11:53:23 2017 +0200
Add patch to fix "Unescaped left brace" warning/error.
Closes: #826459
---
debian/patches/series | 1 +
debian/patches/unescaped_left_brace.patch | 245 ++++++++++++++++++++++++++++++
2 files changed, 246 insertions(+)
diff --git a/debian/patches/series b/debian/patches/series
index 8098151..4dfc1ff 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -2,3 +2,4 @@ pod_typos_error.patch
10-examples.diff
15-fix-5.16-ftbfs.diff
century-tests.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..17849cc
--- /dev/null
+++ b/debian/patches/unescaped_left_brace.patch
@@ -0,0 +1,245 @@
+Description: fix "unescaped left brace" issue
+ which is fatal in perl 5.25.x
+Origin: vendor
+Bug: https://rt.cpan.org/Public/Bug/Display.html?id=115100
+Forwarded: https://rt.cpan.org/Public/Bug/Display.html?id=115100
+Bug-Debian: https://bugs.debian.org/826459
+Author: gregor herrmann <gregoa at debian.org>
+Last-Update: 2017-05-21
+
+--- a/t/f035.t
++++ b/t/f035.t
+@@ -106,7 +106,7 @@
+
+ eval { &{*{$main::{'confess'}}}("CONFESSing"); };
+
+-if ($@ =~ /\bCONFESSing at .+\n.*\b(?:eval {\.\.\.}|require 0) called at\b/)
++if ($@ =~ /\bCONFESSing at .+\n.*\b(?:eval \{\.\.\.}|require 0) called at\b/)
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+
+@@ -118,7 +118,7 @@
+
+ eval { local $SIG{'__WARN__'} = sub { die $_[0]; }; &{*{$main::{'cluck'}}}("CLUCKing"); };
+
+-if ($@ =~ /\bCLUCKing at .+\n.*\b(?:eval {\.\.\.}|require 0) called at\b/)
++if ($@ =~ /\bCLUCKing at .+\n.*\b(?:eval \{\.\.\.}|require 0) called at\b/)
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+
+@@ -130,7 +130,7 @@
+
+ eval { Carp::Clan::confess("confessING"); };
+
+-if ($@ =~ /\bconfessING at .+\n.*\b(?:eval {\.\.\.}|require 0) called at\b/)
++if ($@ =~ /\bconfessING at .+\n.*\b(?:eval \{\.\.\.}|require 0) called at\b/)
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+
+@@ -142,7 +142,7 @@
+
+ eval { local $SIG{'__WARN__'} = sub { die $_[0]; }; Carp::Clan::cluck("cluckING"); };
+
+-if ($@ =~ /\bcluckING at .+\n.*\b(?:eval {\.\.\.}|require 0) called at\b/)
++if ($@ =~ /\bcluckING at .+\n.*\b(?:eval \{\.\.\.}|require 0) called at\b/)
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+
+@@ -165,7 +165,7 @@
+ .*\bC::c\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
+ .*\bB::b\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
+ .*\bA::a\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
+- .*\b(?:eval\ {\.\.\.}|require\ 0)\ called\ at\ /x)
++ .*\b(?:eval\ \{\.\.\.}|require\ 0)\ called\ at\ /x)
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+
+@@ -184,7 +184,7 @@
+ .*\bC::c\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
+ .*\bB::b\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
+ .*\bA::a\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
+- .*\b(?:eval\ {\.\.\.}|require\ 0)\ called\ at\ /x)
++ .*\b(?:eval\ \{\.\.\.}|require\ 0)\ called\ at\ /x)
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+
+@@ -207,7 +207,7 @@
+ .*\bC::c\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
+ .*\bB::b\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
+ .*\bA::a\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
+- .*\b(?:eval\ {\.\.\.}|require\ 0)\ called\ at\ /x)
++ .*\b(?:eval\ \{\.\.\.}|require\ 0)\ called\ at\ /x)
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+
+@@ -226,7 +226,7 @@
+ .*\bC::c\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
+ .*\bB::b\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
+ .*\bA::a\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
+- .*\b(?:eval\ {\.\.\.}|require\ 0)\ called\ at\ /x)
++ .*\b(?:eval\ \{\.\.\.}|require\ 0)\ called\ at\ /x)
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+
+@@ -249,7 +249,7 @@
+ .*\bC::c\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
+ .*\bB::b\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
+ .*\bA::a\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
+- .*\b(?:eval\ {\.\.\.}|require\ 0)\ called\ at\ /x)
++ .*\b(?:eval\ \{\.\.\.}|require\ 0)\ called\ at\ /x)
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+
+@@ -268,7 +268,7 @@
+ .*\bC::c\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
+ .*\bB::b\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
+ .*\bA::a\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
+- .*\b(?:eval\ {\.\.\.}|require\ 0)\ called\ at\ /x)
++ .*\b(?:eval\ \{\.\.\.}|require\ 0)\ called\ at\ /x)
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+
+@@ -291,7 +291,7 @@
+ .*\bC::c\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
+ .*\bB::b\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
+ .*\bA::a\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
+- .*\b(?:eval\ {\.\.\.}|require\ 0)\ called\ at\ /x)
++ .*\b(?:eval\ \{\.\.\.}|require\ 0)\ called\ at\ /x)
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+
+@@ -310,7 +310,7 @@
+ .*\bC::c\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
+ .*\bB::b\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
+ .*\bA::a\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
+- .*\b(?:eval\ {\.\.\.}|require\ 0)\ called\ at\ /x)
++ .*\b(?:eval\ \{\.\.\.}|require\ 0)\ called\ at\ /x)
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+
+@@ -333,7 +333,7 @@
+ .*\bC::c\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
+ .*\bB::b\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
+ .*\bA::a\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
+- .*\b(?:eval\ {\.\.\.}|require\ 0)\ called\ at\ /x)
++ .*\b(?:eval\ \{\.\.\.}|require\ 0)\ called\ at\ /x)
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+
+@@ -352,7 +352,7 @@
+ .*\bC::c\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
+ .*\bB::b\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
+ .*\bA::a\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
+- .*\b(?:eval\ {\.\.\.}|require\ 0)\ called\ at\ /x)
++ .*\b(?:eval\ \{\.\.\.}|require\ 0)\ called\ at\ /x)
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+
+@@ -375,7 +375,7 @@
+ .*\bC::c\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
+ .*\bB::b\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
+ .*\bA::a\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
+- .*\b(?:eval\ {\.\.\.}|require\ 0)\ called\ at\ /x)
++ .*\b(?:eval\ \{\.\.\.}|require\ 0)\ called\ at\ /x)
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+
+@@ -394,7 +394,7 @@
+ .*\bC::c\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
+ .*\bB::b\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
+ .*\bA::a\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
+- .*\b(?:eval\ {\.\.\.}|require\ 0)\ called\ at\ /x)
++ .*\b(?:eval\ \{\.\.\.}|require\ 0)\ called\ at\ /x)
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+
+@@ -417,7 +417,7 @@
+ .*\bC::c\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
+ .*\bB::b\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
+ .*\bA::a\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
+- .*\b(?:eval\ {\.\.\.}|require\ 0)\ called\ at\ /x)
++ .*\b(?:eval\ \{\.\.\.}|require\ 0)\ called\ at\ /x)
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+
+@@ -436,7 +436,7 @@
+ .*\bC::c\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
+ .*\bB::b\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
+ .*\bA::a\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
+- .*\b(?:eval\ {\.\.\.}|require\ 0)\ called\ at\ /x)
++ .*\b(?:eval\ \{\.\.\.}|require\ 0)\ called\ at\ /x)
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+
+@@ -453,7 +453,7 @@
+ .*\bC::c\(1,\ 'CrOaKiNg'\)\ called\ at\ .+\n
+ .*\bB::b\(1,\ 'CrOaKiNg'\)\ called\ at\ .+\n
+ .*\bA::a\(1,\ 'CrOaKiNg'\)\ called\ at\ .+\n
+- .*\b(?:eval\ {\.\.\.}|require\ 0)\ called\ at\ /x)
++ .*\b(?:eval\ \{\.\.\.}|require\ 0)\ called\ at\ /x)
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+
+@@ -466,7 +466,7 @@
+ .*\bC::c\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
+ .*\bB::b\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
+ .*\bA::a\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
+- .*\b(?:eval\ {\.\.\.}|require\ 0)\ called\ at\ /x)
++ .*\b(?:eval\ \{\.\.\.}|require\ 0)\ called\ at\ /x)
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+
+@@ -479,7 +479,7 @@
+ .*\bC::c\(3,\ 'CaRpInG'\)\ called\ at\ .+\n
+ .*\bB::b\(3,\ 'CaRpInG'\)\ called\ at\ .+\n
+ .*\bA::a\(3,\ 'CaRpInG'\)\ called\ at\ .+\n
+- .*\b(?:eval\ {\.\.\.}|require\ 0)\ called\ at\ /x)
++ .*\b(?:eval\ \{\.\.\.}|require\ 0)\ called\ at\ /x)
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+
+@@ -492,7 +492,7 @@
+ .*\bC::c\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
+ .*\bB::b\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
+ .*\bA::a\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
+- .*\b(?:eval\ {\.\.\.}|require\ 0)\ called\ at\ /x)
++ .*\b(?:eval\ \{\.\.\.}|require\ 0)\ called\ at\ /x)
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+
+@@ -509,7 +509,7 @@
+ .*\bC::c\(1,\ 'CrOaKiNg'\)\ called\ at\ .+\n
+ .*\bB::b\(1,\ 'CrOaKiNg'\)\ called\ at\ .+\n
+ .*\bA::a\(1,\ 'CrOaKiNg'\)\ called\ at\ .+\n
+- .*\b(?:eval\ {\.\.\.}|require\ 0)\ called\ at\ /x)
++ .*\b(?:eval\ \{\.\.\.}|require\ 0)\ called\ at\ /x)
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+
+@@ -522,7 +522,7 @@
+ .*\bC::c\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
+ .*\bB::b\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
+ .*\bA::a\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
+- .*\b(?:eval\ {\.\.\.}|require\ 0)\ called\ at\ /x)
++ .*\b(?:eval\ \{\.\.\.}|require\ 0)\ called\ at\ /x)
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+
+@@ -535,7 +535,7 @@
+ .*\bC::c\(3,\ 'CaRpInG'\)\ called\ at\ .+\n
+ .*\bB::b\(3,\ 'CaRpInG'\)\ called\ at\ .+\n
+ .*\bA::a\(3,\ 'CaRpInG'\)\ called\ at\ .+\n
+- .*\b(?:eval\ {\.\.\.}|require\ 0)\ called\ at\ /x)
++ .*\b(?:eval\ \{\.\.\.}|require\ 0)\ called\ at\ /x)
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+
+@@ -548,7 +548,7 @@
+ .*\bC::c\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
+ .*\bB::b\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
+ .*\bA::a\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
+- .*\b(?:eval\ {\.\.\.}|require\ 0)\ called\ at\ /x)
++ .*\b(?:eval\ \{\.\.\.}|require\ 0)\ called\ at\ /x)
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libdate-pcalc-perl.git
More information about the Pkg-perl-cvs-commits
mailing list