Skip Menu |

This queue is for tickets about the Date-Pcalc CPAN distribution.

Report information
The Basics
Id: 115100
Status: open
Priority: 0/
Queue: Date-Pcalc
People
Owner: Nobody in particular
Requestors: gregoa [...] cpan.org
KENTNL [...] cpan.org
Cc:
AdminCc:
Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)

History Show all quoted text
  Sun Jun 05 13:35:59 2016 gregoa [...] cpan.org - Ticket created
From: gregoa [...] cpan.org
Subject: libdate-pcalc-perl: Unescaped left brace in regex is deprecated
We have the following bug reported to the Debian package of Date-Pcalc (https://bugs.debian.org/826459): It doesn't seem to be a bug in the packaging, so you may want to take a look. Thanks! ------8<-----------8<-----------8<-----------8<-----------8<----- Package: libdate-pcalc-perl Version: 6.1-4 Severity: minor User: debian-perl@lists.debian.org Usertags: perl-5.24-transition Building this package triggers deprecation warnings with Perl 5.24 (currently in experimental), and probably with Perl 5.22 (current sid) too. Unescaped left brace in regex is deprecated, passed through in regex; marked by <-- HERE in m/\bCONFESSing at .+\n.*\b(?:eval { <-- HERE \.\.\.}|require 0) called at\b/ at t/f035.t line 109. Unescaped left brace in regex is deprecated, passed through in regex; marked by <-- HERE in m/\bCLUCKing at .+\n.*\b(?:eval { <-- HERE \.\.\.}|require 0) called at\b/ at t/f035.t line 121. Unescaped left brace in regex is deprecated, passed through in regex; marked by <-- HERE in m/\bconfessING at .+\n.*\b(?:eval { <-- HERE \.\.\.}|require 0) called at\b/ at t/f035.t line 133. Unescaped left brace in regex is deprecated, passed through in regex; marked by <-- HERE in m/\bcluckING at .+\n.*\b(?:eval { <-- HERE \.\.\.}|require 0) called at\b/ at t/f035.t line 145. A full build log is available at http://perl.debian.net/rebuild-logs/perl-5.24/libdate-pcalc-perl_6.1-4/ -- Niko Tyni ntyni@debian.org ------8<-----------8<-----------8<-----------8<-----------8<----- Thanks for considering, gregor herrmann, Debian Perl Group
  Fri Jun 10 13:01:22 2016 SREZIC [...] cpan.org - Correspondence added
On 2016-06-05 13:35:59, GREGOA wrote: Show quoted text
> We have the following bug reported to the Debian package of > Date-Pcalc (https://bugs.debian.org/826459): > > It doesn't seem to be a bug in the packaging, so you may want to take > a look. Thanks! > > ------8<-----------8<-----------8<-----------8<-----------8<----- > > Package: libdate-pcalc-perl > Version: 6.1-4 > Severity: minor > User: debian-perl@lists.debian.org > Usertags: perl-5.24-transition > > Building this package triggers deprecation warnings with Perl 5.24 > (currently in experimental), and probably with Perl 5.22 (current sid) > too. > > Unescaped left brace in regex is deprecated, passed through in regex; > marked by <-- HERE in m/\bCONFESSing at .+\n.*\b(?:eval { <-- HERE > \.\.\.}|require 0) called at\b/ at t/f035.t line 109. > Unescaped left brace in regex is deprecated, passed through in regex; > marked by <-- HERE in m/\bCLUCKing at .+\n.*\b(?:eval { <-- HERE > \.\.\.}|require 0) called at\b/ at t/f035.t line 121. > Unescaped left brace in regex is deprecated, passed through in regex; > marked by <-- HERE in m/\bconfessING at .+\n.*\b(?:eval { <-- HERE > \.\.\.}|require 0) called at\b/ at t/f035.t line 133. > Unescaped left brace in regex is deprecated, passed through in regex; > marked by <-- HERE in m/\bcluckING at .+\n.*\b(?:eval { <-- HERE > \.\.\.}|require 0) called at\b/ at t/f035.t line 145. > > A full build log is available at > http://perl.debian.net/rebuild-logs/perl-5.24/libdate-pcalc- > perl_6.1-4/
With perl 5.25.1 and later, this warning is a fatal error and the affected test scripts do not compile anymore.
  Fri Jun 10 13:01:22 2016 The RT System itself - Status changed from 'new' to 'open'
  Thu Nov 10 17:41:20 2016 KENTNL [...] cpan.org - Requestor KENTNL added
  Sun May 21 05:53:14 2017 gregoa [...] cpan.org - Correspondence added
Patch attached
Subject: unescaped_left_brace.patch
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@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++;