"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "t/f035.t" between
Date-Calc-6.3.tar.gz and Date-Calc-6.4.tar.gz

About: Date-Calc - Gregorian calendar date calculations (C library and Perl module).

f035.t  (Date-Calc-6.3):f035.t  (Date-Calc-6.4)
skipping to change at line 111 skipping to change at line 111
package main; package main;
eval { &{*{$main::{'croak'}}}("CROAKing"); }; eval { &{*{$main::{'croak'}}}("CROAKing"); };
if ($@ =~ /^.+\bCROAKing at .+$/) # no "\n" except at EOL if ($@ =~ /^.+\bCROAKing at .+$/) # no "\n" except at EOL
{print "ok $n\n";} else {print "not ok $n\n";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
eval { &{*{$main::{'confess'}}}("CONFESSing"); }; 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";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
eval { local $SIG{'__WARN__'} = sub { die $_[0]; }; &{*{$main::{'carp'}}}("CARPi ng"); }; eval { local $SIG{'__WARN__'} = sub { die $_[0]; }; &{*{$main::{'carp'}}}("CARPi ng"); };
if ($@ =~ /^.+\bCARPing at .+$/) # no "\n" except at EOL if ($@ =~ /^.+\bCARPing at .+$/) # no "\n" except at EOL
{print "ok $n\n";} else {print "not ok $n\n";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
eval { local $SIG{'__WARN__'} = sub { die $_[0]; }; &{*{$main::{'cluck'}}}("CLUC King"); }; eval { local $SIG{'__WARN__'} = sub { die $_[0]; }; &{*{$main::{'cluck'}}}("CLUC King"); };
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";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
eval { Carp::Clan::croak("croakING"); }; eval { Carp::Clan::croak("croakING"); };
if ($@ =~ /^.+\bcroakING at .+$/) # no "\n" except at EOL if ($@ =~ /^.+\bcroakING at .+$/) # no "\n" except at EOL
{print "ok $n\n";} else {print "not ok $n\n";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
eval { Carp::Clan::confess("confessING"); }; 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";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
eval { local $SIG{'__WARN__'} = sub { die $_[0]; }; Carp::Clan::carp("carpING"); }; eval { local $SIG{'__WARN__'} = sub { die $_[0]; }; Carp::Clan::carp("carpING"); };
if ($@ =~ /^.+\bcarpING at .+$/) # no "\n" except at EOL if ($@ =~ /^.+\bcarpING at .+$/) # no "\n" except at EOL
{print "ok $n\n";} else {print "not ok $n\n";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
eval { local $SIG{'__WARN__'} = sub { die $_[0]; }; Carp::Clan::cluck("cluckING" ); }; 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";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
############################### ###############################
# Now testing the real thing: # # Now testing the real thing: #
############################### ###############################
eval { &A::a(1, "CrOaKiNg"); }; eval { &A::a(1, "CrOaKiNg"); };
if ($@ =~ /\bF::f\(\): CrOaKiNg at /) if ($@ =~ /\bF::f\(\): CrOaKiNg at /)
skipping to change at line 170 skipping to change at line 170
eval { &A::a(2, "CoNfEsSiNg"); }; eval { &A::a(2, "CoNfEsSiNg"); };
if ($@ =~ /\bCoNfEsSiNg\ at\ .+\n if ($@ =~ /\bCoNfEsSiNg\ at\ .+\n
.*\bF::f\((?:\d+,\s*)*2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n .*\bF::f\((?:\d+,\s*)*2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
.*\bE::e\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n .*\bE::e\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
.*\bD::d\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n .*\bD::d\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
.*\bC::c\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n .*\bC::c\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
.*\bB::b\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n .*\bB::b\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
.*\bA::a\(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";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
eval { local $SIG{'__WARN__'} = sub { die $_[0]; }; &A::a(3, "CaRpInG"); }; eval { local $SIG{'__WARN__'} = sub { die $_[0]; }; &A::a(3, "CaRpInG"); };
if ($@ =~ /\bF::f\(\): CaRpInG at /) if ($@ =~ /\bF::f\(\): CaRpInG at /)
{print "ok $n\n";} else {print "not ok $n\n";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
eval { local $SIG{'__WARN__'} = sub { die $_[0]; }; &A::a(4, "ClUcKiNg"); }; eval { local $SIG{'__WARN__'} = sub { die $_[0]; }; &A::a(4, "ClUcKiNg"); };
if ($@ =~ /\bClUcKiNg\ at\ .+\n if ($@ =~ /\bClUcKiNg\ at\ .+\n
.*\bF::f\((?:\d+,\s*)*4,\ 'ClUcKiNg'\)\ called\ at\ .+\n .*\bF::f\((?:\d+,\s*)*4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
.*\bE::e\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n .*\bE::e\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
.*\bD::d\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n .*\bD::d\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
.*\bC::c\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n .*\bC::c\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
.*\bB::b\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n .*\bB::b\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
.*\bA::a\(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";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
package F; package F;
eval { local $^W = 0; Carp::Clan->import('^F\b'); }; eval { local $^W = 0; Carp::Clan->import('^F\b'); };
package main; package main;
eval { &A::a(1, "CrOaKiNg"); }; eval { &A::a(1, "CrOaKiNg"); };
if ($@ =~ /\bF::f\(\): CrOaKiNg at /) if ($@ =~ /\bF::f\(\): CrOaKiNg at /)
skipping to change at line 212 skipping to change at line 212
eval { &A::a(2, "CoNfEsSiNg"); }; eval { &A::a(2, "CoNfEsSiNg"); };
if ($@ =~ /\bCoNfEsSiNg\ at\ .+\n if ($@ =~ /\bCoNfEsSiNg\ at\ .+\n
.*\bF::f\((?:\d+,\s*)*2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n .*\bF::f\((?:\d+,\s*)*2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
.*\bE::e\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n .*\bE::e\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
.*\bD::d\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n .*\bD::d\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
.*\bC::c\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n .*\bC::c\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
.*\bB::b\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n .*\bB::b\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
.*\bA::a\(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";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
eval { local $SIG{'__WARN__'} = sub { die $_[0]; }; &A::a(3, "CaRpInG"); }; eval { local $SIG{'__WARN__'} = sub { die $_[0]; }; &A::a(3, "CaRpInG"); };
if ($@ =~ /\bF::f\(\): CaRpInG at /) if ($@ =~ /\bF::f\(\): CaRpInG at /)
{print "ok $n\n";} else {print "not ok $n\n";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
eval { local $SIG{'__WARN__'} = sub { die $_[0]; }; &A::a(4, "ClUcKiNg"); }; eval { local $SIG{'__WARN__'} = sub { die $_[0]; }; &A::a(4, "ClUcKiNg"); };
if ($@ =~ /\bClUcKiNg\ at\ .+\n if ($@ =~ /\bClUcKiNg\ at\ .+\n
.*\bF::f\((?:\d+,\s*)*4,\ 'ClUcKiNg'\)\ called\ at\ .+\n .*\bF::f\((?:\d+,\s*)*4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
.*\bE::e\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n .*\bE::e\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
.*\bD::d\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n .*\bD::d\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
.*\bC::c\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n .*\bC::c\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
.*\bB::b\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n .*\bB::b\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
.*\bA::a\(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";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
package F; package F;
eval { local $^W = 0; Carp::Clan->import('^[EF]\b'); }; eval { local $^W = 0; Carp::Clan->import('^[EF]\b'); };
package main; package main;
eval { &A::a(1, "CrOaKiNg"); }; eval { &A::a(1, "CrOaKiNg"); };
if ($@ =~ /\bE::e\(\): CrOaKiNg at /) if ($@ =~ /\bE::e\(\): CrOaKiNg at /)
skipping to change at line 254 skipping to change at line 254
eval { &A::a(2, "CoNfEsSiNg"); }; eval { &A::a(2, "CoNfEsSiNg"); };
if ($@ =~ /\bCoNfEsSiNg\ at\ .+\n if ($@ =~ /\bCoNfEsSiNg\ at\ .+\n
.*\bF::f\((?:\d+,\s*)*2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n .*\bF::f\((?:\d+,\s*)*2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
.*\bE::e\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n .*\bE::e\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
.*\bD::d\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n .*\bD::d\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
.*\bC::c\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n .*\bC::c\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
.*\bB::b\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n .*\bB::b\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
.*\bA::a\(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";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
eval { local $SIG{'__WARN__'} = sub { die $_[0]; }; &A::a(3, "CaRpInG"); }; eval { local $SIG{'__WARN__'} = sub { die $_[0]; }; &A::a(3, "CaRpInG"); };
if ($@ =~ /\bE::e\(\): CaRpInG at /) if ($@ =~ /\bE::e\(\): CaRpInG at /)
{print "ok $n\n";} else {print "not ok $n\n";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
eval { local $SIG{'__WARN__'} = sub { die $_[0]; }; &A::a(4, "ClUcKiNg"); }; eval { local $SIG{'__WARN__'} = sub { die $_[0]; }; &A::a(4, "ClUcKiNg"); };
if ($@ =~ /\bClUcKiNg\ at\ .+\n if ($@ =~ /\bClUcKiNg\ at\ .+\n
.*\bF::f\((?:\d+,\s*)*4,\ 'ClUcKiNg'\)\ called\ at\ .+\n .*\bF::f\((?:\d+,\s*)*4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
.*\bE::e\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n .*\bE::e\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
.*\bD::d\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n .*\bD::d\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
.*\bC::c\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n .*\bC::c\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
.*\bB::b\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n .*\bB::b\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
.*\bA::a\(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";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
package F; package F;
eval { local $^W = 0; Carp::Clan->import('^[DEF]\b'); }; eval { local $^W = 0; Carp::Clan->import('^[DEF]\b'); };
package main; package main;
eval { &A::a(1, "CrOaKiNg"); }; eval { &A::a(1, "CrOaKiNg"); };
if ($@ =~ /\bD::d\(\): CrOaKiNg at /) if ($@ =~ /\bD::d\(\): CrOaKiNg at /)
skipping to change at line 296 skipping to change at line 296
eval { &A::a(2, "CoNfEsSiNg"); }; eval { &A::a(2, "CoNfEsSiNg"); };
if ($@ =~ /\bCoNfEsSiNg\ at\ .+\n if ($@ =~ /\bCoNfEsSiNg\ at\ .+\n
.*\bF::f\((?:\d+,\s*)*2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n .*\bF::f\((?:\d+,\s*)*2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
.*\bE::e\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n .*\bE::e\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
.*\bD::d\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n .*\bD::d\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
.*\bC::c\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n .*\bC::c\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
.*\bB::b\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n .*\bB::b\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
.*\bA::a\(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";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
eval { local $SIG{'__WARN__'} = sub { die $_[0]; }; &A::a(3, "CaRpInG"); }; eval { local $SIG{'__WARN__'} = sub { die $_[0]; }; &A::a(3, "CaRpInG"); };
if ($@ =~ /\bD::d\(\): CaRpInG at /) if ($@ =~ /\bD::d\(\): CaRpInG at /)
{print "ok $n\n";} else {print "not ok $n\n";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
eval { local $SIG{'__WARN__'} = sub { die $_[0]; }; &A::a(4, "ClUcKiNg"); }; eval { local $SIG{'__WARN__'} = sub { die $_[0]; }; &A::a(4, "ClUcKiNg"); };
if ($@ =~ /\bClUcKiNg\ at\ .+\n if ($@ =~ /\bClUcKiNg\ at\ .+\n
.*\bF::f\((?:\d+,\s*)*4,\ 'ClUcKiNg'\)\ called\ at\ .+\n .*\bF::f\((?:\d+,\s*)*4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
.*\bE::e\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n .*\bE::e\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
.*\bD::d\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n .*\bD::d\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
.*\bC::c\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n .*\bC::c\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
.*\bB::b\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n .*\bB::b\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
.*\bA::a\(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";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
package F; package F;
eval { local $^W = 0; Carp::Clan->import('^[CDEF]\b'); }; eval { local $^W = 0; Carp::Clan->import('^[CDEF]\b'); };
package main; package main;
eval { &A::a(1, "CrOaKiNg"); }; eval { &A::a(1, "CrOaKiNg"); };
if ($@ =~ /\bC::c\(\): CrOaKiNg at /) if ($@ =~ /\bC::c\(\): CrOaKiNg at /)
skipping to change at line 338 skipping to change at line 338
eval { &A::a(2, "CoNfEsSiNg"); }; eval { &A::a(2, "CoNfEsSiNg"); };
if ($@ =~ /\bCoNfEsSiNg\ at\ .+\n if ($@ =~ /\bCoNfEsSiNg\ at\ .+\n
.*\bF::f\((?:\d+,\s*)*2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n .*\bF::f\((?:\d+,\s*)*2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
.*\bE::e\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n .*\bE::e\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
.*\bD::d\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n .*\bD::d\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
.*\bC::c\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n .*\bC::c\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
.*\bB::b\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n .*\bB::b\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
.*\bA::a\(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";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
eval { local $SIG{'__WARN__'} = sub { die $_[0]; }; &A::a(3, "CaRpInG"); }; eval { local $SIG{'__WARN__'} = sub { die $_[0]; }; &A::a(3, "CaRpInG"); };
if ($@ =~ /\bC::c\(\): CaRpInG at /) if ($@ =~ /\bC::c\(\): CaRpInG at /)
{print "ok $n\n";} else {print "not ok $n\n";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
eval { local $SIG{'__WARN__'} = sub { die $_[0]; }; &A::a(4, "ClUcKiNg"); }; eval { local $SIG{'__WARN__'} = sub { die $_[0]; }; &A::a(4, "ClUcKiNg"); };
if ($@ =~ /\bClUcKiNg\ at\ .+\n if ($@ =~ /\bClUcKiNg\ at\ .+\n
.*\bF::f\((?:\d+,\s*)*4,\ 'ClUcKiNg'\)\ called\ at\ .+\n .*\bF::f\((?:\d+,\s*)*4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
.*\bE::e\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n .*\bE::e\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
.*\bD::d\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n .*\bD::d\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
.*\bC::c\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n .*\bC::c\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
.*\bB::b\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n .*\bB::b\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
.*\bA::a\(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";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
package F; package F;
eval { local $^W = 0; Carp::Clan->import('^[BCDEF]\b'); }; eval { local $^W = 0; Carp::Clan->import('^[BCDEF]\b'); };
package main; package main;
eval { &A::a(1, "CrOaKiNg"); }; eval { &A::a(1, "CrOaKiNg"); };
if ($@ =~ /\bB::b\(\): CrOaKiNg at /) if ($@ =~ /\bB::b\(\): CrOaKiNg at /)
skipping to change at line 380 skipping to change at line 380
eval { &A::a(2, "CoNfEsSiNg"); }; eval { &A::a(2, "CoNfEsSiNg"); };
if ($@ =~ /\bCoNfEsSiNg\ at\ .+\n if ($@ =~ /\bCoNfEsSiNg\ at\ .+\n
.*\bF::f\((?:\d+,\s*)*2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n .*\bF::f\((?:\d+,\s*)*2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
.*\bE::e\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n .*\bE::e\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
.*\bD::d\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n .*\bD::d\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
.*\bC::c\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n .*\bC::c\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
.*\bB::b\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n .*\bB::b\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
.*\bA::a\(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";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
eval { local $SIG{'__WARN__'} = sub { die $_[0]; }; &A::a(3, "CaRpInG"); }; eval { local $SIG{'__WARN__'} = sub { die $_[0]; }; &A::a(3, "CaRpInG"); };
if ($@ =~ /\bB::b\(\): CaRpInG at /) if ($@ =~ /\bB::b\(\): CaRpInG at /)
{print "ok $n\n";} else {print "not ok $n\n";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
eval { local $SIG{'__WARN__'} = sub { die $_[0]; }; &A::a(4, "ClUcKiNg"); }; eval { local $SIG{'__WARN__'} = sub { die $_[0]; }; &A::a(4, "ClUcKiNg"); };
if ($@ =~ /\bClUcKiNg\ at\ .+\n if ($@ =~ /\bClUcKiNg\ at\ .+\n
.*\bF::f\((?:\d+,\s*)*4,\ 'ClUcKiNg'\)\ called\ at\ .+\n .*\bF::f\((?:\d+,\s*)*4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
.*\bE::e\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n .*\bE::e\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
.*\bD::d\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n .*\bD::d\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
.*\bC::c\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n .*\bC::c\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
.*\bB::b\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n .*\bB::b\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
.*\bA::a\(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";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
package F; package F;
eval { local $^W = 0; Carp::Clan->import('^[ABCDEF]\b'); }; eval { local $^W = 0; Carp::Clan->import('^[ABCDEF]\b'); };
package main; package main;
eval { &A::a(1, "CrOaKiNg"); }; eval { &A::a(1, "CrOaKiNg"); };
if ($@ =~ /\bA::a\(\): CrOaKiNg at /) if ($@ =~ /\bA::a\(\): CrOaKiNg at /)
skipping to change at line 422 skipping to change at line 422
eval { &A::a(2, "CoNfEsSiNg"); }; eval { &A::a(2, "CoNfEsSiNg"); };
if ($@ =~ /\bCoNfEsSiNg\ at\ .+\n if ($@ =~ /\bCoNfEsSiNg\ at\ .+\n
.*\bF::f\((?:\d+,\s*)*2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n .*\bF::f\((?:\d+,\s*)*2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
.*\bE::e\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n .*\bE::e\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
.*\bD::d\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n .*\bD::d\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
.*\bC::c\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n .*\bC::c\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
.*\bB::b\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n .*\bB::b\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
.*\bA::a\(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";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
eval { local $SIG{'__WARN__'} = sub { die $_[0]; }; &A::a(3, "CaRpInG"); }; eval { local $SIG{'__WARN__'} = sub { die $_[0]; }; &A::a(3, "CaRpInG"); };
if ($@ =~ /\bA::a\(\): CaRpInG at /) if ($@ =~ /\bA::a\(\): CaRpInG at /)
{print "ok $n\n";} else {print "not ok $n\n";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
eval { local $SIG{'__WARN__'} = sub { die $_[0]; }; &A::a(4, "ClUcKiNg"); }; eval { local $SIG{'__WARN__'} = sub { die $_[0]; }; &A::a(4, "ClUcKiNg"); };
if ($@ =~ /\bClUcKiNg\ at\ .+\n if ($@ =~ /\bClUcKiNg\ at\ .+\n
.*\bF::f\((?:\d+,\s*)*4,\ 'ClUcKiNg'\)\ called\ at\ .+\n .*\bF::f\((?:\d+,\s*)*4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
.*\bE::e\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n .*\bE::e\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
.*\bD::d\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n .*\bD::d\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
.*\bC::c\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n .*\bC::c\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
.*\bB::b\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n .*\bB::b\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
.*\bA::a\(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";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
package F; package F;
eval { local $^W = 0; Carp::Clan->import('^(?:[ABCDEF]|main)\b'); }; eval { local $^W = 0; Carp::Clan->import('^(?:[ABCDEF]|main)\b'); };
package main; package main;
eval { &A::a(1, "CrOaKiNg"); }; eval { &A::a(1, "CrOaKiNg"); };
if ($@ =~ /\bCrOaKiNg\ at\ .+\n if ($@ =~ /\bCrOaKiNg\ at\ .+\n
.*\bF::f\((?:\d+,\s*)*1,\ 'CrOaKiNg'\)\ called\ at\ .+\n .*\bF::f\((?:\d+,\s*)*1,\ 'CrOaKiNg'\)\ called\ at\ .+\n
.*\bE::e\(1,\ 'CrOaKiNg'\)\ called\ at\ .+\n .*\bE::e\(1,\ 'CrOaKiNg'\)\ called\ at\ .+\n
.*\bD::d\(1,\ 'CrOaKiNg'\)\ called\ at\ .+\n .*\bD::d\(1,\ 'CrOaKiNg'\)\ called\ at\ .+\n
.*\bC::c\(1,\ 'CrOaKiNg'\)\ called\ at\ .+\n .*\bC::c\(1,\ 'CrOaKiNg'\)\ called\ at\ .+\n
.*\bB::b\(1,\ 'CrOaKiNg'\)\ called\ at\ .+\n .*\bB::b\(1,\ 'CrOaKiNg'\)\ called\ at\ .+\n
.*\bA::a\(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";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
eval { &A::a(2, "CoNfEsSiNg"); }; eval { &A::a(2, "CoNfEsSiNg"); };
if ($@ =~ /\bCoNfEsSiNg\ at\ .+\n if ($@ =~ /\bCoNfEsSiNg\ at\ .+\n
.*\bF::f\((?:\d+,\s*)*2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n .*\bF::f\((?:\d+,\s*)*2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
.*\bE::e\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n .*\bE::e\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
.*\bD::d\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n .*\bD::d\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
.*\bC::c\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n .*\bC::c\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
.*\bB::b\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n .*\bB::b\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
.*\bA::a\(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";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
eval { local $SIG{'__WARN__'} = sub { die $_[0]; }; &A::a(3, "CaRpInG"); }; eval { local $SIG{'__WARN__'} = sub { die $_[0]; }; &A::a(3, "CaRpInG"); };
if ($@ =~ /\bCaRpInG\ at\ .+\n if ($@ =~ /\bCaRpInG\ at\ .+\n
.*\bF::f\((?:\d+,\s*)*3,\ 'CaRpInG'\)\ called\ at\ .+\n .*\bF::f\((?:\d+,\s*)*3,\ 'CaRpInG'\)\ called\ at\ .+\n
.*\bE::e\(3,\ 'CaRpInG'\)\ called\ at\ .+\n .*\bE::e\(3,\ 'CaRpInG'\)\ called\ at\ .+\n
.*\bD::d\(3,\ 'CaRpInG'\)\ called\ at\ .+\n .*\bD::d\(3,\ 'CaRpInG'\)\ called\ at\ .+\n
.*\bC::c\(3,\ 'CaRpInG'\)\ called\ at\ .+\n .*\bC::c\(3,\ 'CaRpInG'\)\ called\ at\ .+\n
.*\bB::b\(3,\ 'CaRpInG'\)\ called\ at\ .+\n .*\bB::b\(3,\ 'CaRpInG'\)\ called\ at\ .+\n
.*\bA::a\(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";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
eval { local $SIG{'__WARN__'} = sub { die $_[0]; }; &A::a(4, "ClUcKiNg"); }; eval { local $SIG{'__WARN__'} = sub { die $_[0]; }; &A::a(4, "ClUcKiNg"); };
if ($@ =~ /\bClUcKiNg\ at\ .+\n if ($@ =~ /\bClUcKiNg\ at\ .+\n
.*\bF::f\((?:\d+,\s*)*4,\ 'ClUcKiNg'\)\ called\ at\ .+\n .*\bF::f\((?:\d+,\s*)*4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
.*\bE::e\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n .*\bE::e\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
.*\bD::d\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n .*\bD::d\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
.*\bC::c\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n .*\bC::c\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
.*\bB::b\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n .*\bB::b\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
.*\bA::a\(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";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
package F; package F;
eval { local $^W = 0; Carp::Clan->import('.'); }; eval { local $^W = 0; Carp::Clan->import('.'); };
package main; package main;
eval { &A::a(1, "CrOaKiNg"); }; eval { &A::a(1, "CrOaKiNg"); };
if ($@ =~ /\bCrOaKiNg\ at\ .+\n if ($@ =~ /\bCrOaKiNg\ at\ .+\n
.*\bF::f\((?:\d+,\s*)*1,\ 'CrOaKiNg'\)\ called\ at\ .+\n .*\bF::f\((?:\d+,\s*)*1,\ 'CrOaKiNg'\)\ called\ at\ .+\n
.*\bE::e\(1,\ 'CrOaKiNg'\)\ called\ at\ .+\n .*\bE::e\(1,\ 'CrOaKiNg'\)\ called\ at\ .+\n
.*\bD::d\(1,\ 'CrOaKiNg'\)\ called\ at\ .+\n .*\bD::d\(1,\ 'CrOaKiNg'\)\ called\ at\ .+\n
.*\bC::c\(1,\ 'CrOaKiNg'\)\ called\ at\ .+\n .*\bC::c\(1,\ 'CrOaKiNg'\)\ called\ at\ .+\n
.*\bB::b\(1,\ 'CrOaKiNg'\)\ called\ at\ .+\n .*\bB::b\(1,\ 'CrOaKiNg'\)\ called\ at\ .+\n
.*\bA::a\(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";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
eval { &A::a(2, "CoNfEsSiNg"); }; eval { &A::a(2, "CoNfEsSiNg"); };
if ($@ =~ /\bCoNfEsSiNg\ at\ .+\n if ($@ =~ /\bCoNfEsSiNg\ at\ .+\n
.*\bF::f\((?:\d+,\s*)*2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n .*\bF::f\((?:\d+,\s*)*2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
.*\bE::e\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n .*\bE::e\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
.*\bD::d\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n .*\bD::d\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
.*\bC::c\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n .*\bC::c\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
.*\bB::b\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n .*\bB::b\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
.*\bA::a\(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";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
eval { local $SIG{'__WARN__'} = sub { die $_[0]; }; &A::a(3, "CaRpInG"); }; eval { local $SIG{'__WARN__'} = sub { die $_[0]; }; &A::a(3, "CaRpInG"); };
if ($@ =~ /\bCaRpInG\ at\ .+\n if ($@ =~ /\bCaRpInG\ at\ .+\n
.*\bF::f\((?:\d+,\s*)*3,\ 'CaRpInG'\)\ called\ at\ .+\n .*\bF::f\((?:\d+,\s*)*3,\ 'CaRpInG'\)\ called\ at\ .+\n
.*\bE::e\(3,\ 'CaRpInG'\)\ called\ at\ .+\n .*\bE::e\(3,\ 'CaRpInG'\)\ called\ at\ .+\n
.*\bD::d\(3,\ 'CaRpInG'\)\ called\ at\ .+\n .*\bD::d\(3,\ 'CaRpInG'\)\ called\ at\ .+\n
.*\bC::c\(3,\ 'CaRpInG'\)\ called\ at\ .+\n .*\bC::c\(3,\ 'CaRpInG'\)\ called\ at\ .+\n
.*\bB::b\(3,\ 'CaRpInG'\)\ called\ at\ .+\n .*\bB::b\(3,\ 'CaRpInG'\)\ called\ at\ .+\n
.*\bA::a\(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";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
eval { local $SIG{'__WARN__'} = sub { die $_[0]; }; &A::a(4, "ClUcKiNg"); }; eval { local $SIG{'__WARN__'} = sub { die $_[0]; }; &A::a(4, "ClUcKiNg"); };
if ($@ =~ /\bClUcKiNg\ at\ .+\n if ($@ =~ /\bClUcKiNg\ at\ .+\n
.*\bF::f\((?:\d+,\s*)*4,\ 'ClUcKiNg'\)\ called\ at\ .+\n .*\bF::f\((?:\d+,\s*)*4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
.*\bE::e\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n .*\bE::e\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
.*\bD::d\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n .*\bD::d\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
.*\bC::c\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n .*\bC::c\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
.*\bB::b\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n .*\bB::b\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
.*\bA::a\(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";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
__END__ __END__
 End of changes. 26 change blocks. 
26 lines changed or deleted 26 lines changed or added

Home  |  About  |  All  |  Newest  |  Fossies Dox  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTPS