Hello community, here is the log from the commit of package perl-Devel-Confess for openSUSE:Factory checked in at 2016-11-20 18:19:27 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Devel-Confess (Old) and /work/SRC/openSUSE:Factory/.perl-Devel-Confess.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Devel-Confess" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Devel-Confess/perl-Devel-Confess.changes 2016-09-26 12:36:32.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.perl-Devel-Confess.new/perl-Devel-Confess.changes 2016-11-20 18:19:28.000000000 +0100 @@ -1,0 +2,11 @@ +Sat Nov 19 06:21:29 UTC 2016 - co...@suse.com + +- updated to 0.009003 + see /usr/share/doc/packages/perl-Devel-Confess/Changes + + 0.009003 - 2016-11-18 + - more complete prereq list + - fix inf handling + - work around UNIVERSAL::isa and UNIVERSAL::can + +------------------------------------------------------------------- Old: ---- Devel-Confess-0.009002.tar.gz New: ---- Devel-Confess-0.009003.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Devel-Confess.spec ++++++ --- /var/tmp/diff_new_pack.Fxnq5W/_old 2016-11-20 18:19:29.000000000 +0100 +++ /var/tmp/diff_new_pack.Fxnq5W/_new 2016-11-20 18:19:29.000000000 +0100 @@ -17,7 +17,7 @@ Name: perl-Devel-Confess -Version: 0.009002 +Version: 0.009003 Release: 0 %define cpan_name Devel-Confess Summary: Include stack traces on all warnings and errors ++++++ Devel-Confess-0.009002.tar.gz -> Devel-Confess-0.009003.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Devel-Confess-0.009002/Changes new/Devel-Confess-0.009003/Changes --- old/Devel-Confess-0.009002/Changes 2016-09-04 21:36:10.000000000 +0200 +++ new/Devel-Confess-0.009003/Changes 2016-11-18 21:41:32.000000000 +0100 @@ -1,5 +1,10 @@ Release history for Devel-Confess +0.009003 - 2016-11-18 + - more complete prereq list + - fix inf handling + - work around UNIVERSAL::isa and UNIVERSAL::can + 0.009002 - 2016-09-04 - fix test failures on perl 5.10.0 - fix regex warnings in perl 5.6 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Devel-Confess-0.009002/MANIFEST new/Devel-Confess-0.009003/MANIFEST --- old/Devel-Confess-0.009002/MANIFEST 2016-09-04 21:36:21.000000000 +0200 +++ new/Devel-Confess-0.009003/MANIFEST 2016-11-18 21:41:43.000000000 +0100 @@ -25,6 +25,7 @@ t/sig.t t/source.t t/threads.t +t/universal.t xt/builtin.t META.yml Module YAML meta-data (added by MakeMaker) META.json Module JSON meta-data (added by MakeMaker) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Devel-Confess-0.009002/META.json new/Devel-Confess-0.009003/META.json --- old/Devel-Confess-0.009002/META.json 2016-09-04 21:36:21.000000000 +0200 +++ new/Devel-Confess-0.009003/META.json 2016-11-18 21:41:43.000000000 +0100 @@ -4,7 +4,7 @@ "haarg - Graham Knop (cpan:HAARG) <ha...@haarg.org>" ], "dynamic_config" : 0, - "generated_by" : "ExtUtils::MakeMaker version 7.22, CPAN::Meta::Converter version 2.150010", + "generated_by" : "ExtUtils::MakeMaker version 7.24, CPAN::Meta::Converter version 2.150005", "license" : [ "perl_5" ], @@ -40,12 +40,16 @@ "requires" : { "Carp" : "0", "Scalar::Util" : "0", - "perl" : "v5.6.0" + "perl" : "5.006" } }, "test" : { "requires" : { + "Cwd" : "0", + "File::Spec" : "0", "File::Temp" : "0", + "IPC::Open3" : "0", + "Safe" : "0", "Test::More" : "0" } } @@ -65,6 +69,6 @@ "web" : "https://github.com/haarg/Devel-Confess" } }, - "version" : "0.009002", + "version" : "0.009003", "x_serialization_backend" : "JSON::PP version 2.27300" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Devel-Confess-0.009002/META.yml new/Devel-Confess-0.009003/META.yml --- old/Devel-Confess-0.009002/META.yml 2016-09-04 21:36:21.000000000 +0200 +++ new/Devel-Confess-0.009003/META.yml 2016-11-18 21:41:42.000000000 +0100 @@ -3,12 +3,16 @@ author: - 'haarg - Graham Knop (cpan:HAARG) <ha...@haarg.org>' build_requires: + Cwd: '0' + File::Spec: '0' File::Temp: '0' + IPC::Open3: '0' + Safe: '0' Test::More: '0' configure_requires: ExtUtils::MakeMaker: '0' dynamic_config: 0 -generated_by: 'ExtUtils::MakeMaker version 7.22, CPAN::Meta::Converter version 2.150010' +generated_by: 'ExtUtils::MakeMaker version 7.24, CPAN::Meta::Converter version 2.150005' license: perl meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html @@ -21,10 +25,10 @@ requires: Carp: '0' Scalar::Util: '0' - perl: v5.6.0 + perl: '5.006' resources: bugtracker: https://rt.cpan.org/Public/Dist/Display.html?Name=Devel-Confess license: http://dev.perl.org/licenses/ repository: git://github.com/haarg/Devel-Confess -version: '0.009002' +version: '0.009003' x_serialization_backend: 'CPAN::Meta::YAML version 0.018' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Devel-Confess-0.009002/Makefile.PL new/Devel-Confess-0.009003/Makefile.PL --- old/Devel-Confess-0.009002/Makefile.PL 2016-01-07 15:17:50.000000000 +0100 +++ new/Devel-Confess-0.009003/Makefile.PL 2016-10-15 23:03:39.000000000 +0200 @@ -15,9 +15,13 @@ test => { requires => { 'File::Temp' => 0, 'Test::More' => 0, + 'Safe' => 0, + 'Cwd' => 0, + 'File::Spec' => 0, + 'IPC::Open3' => 0, } }, runtime => { requires => { - 'perl' => '5.6.0', + 'perl' => '5.006', 'Carp' => 0, 'Scalar::Util' => 0, } }, @@ -46,7 +50,7 @@ ## BOILERPLATE ############################################################### require ExtUtils::MakeMaker; -(do 'maint/Makefile.PL.include' or die $@) unless -f 'META.yml'; +(do './maint/Makefile.PL.include' or die $@) unless -f 'META.yml'; # have to do this since old EUMM dev releases miss the eval $VERSION line my $eumm_version = eval $ExtUtils::MakeMaker::VERSION; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Devel-Confess-0.009002/lib/Devel/Confess/Builtin.pm new/Devel-Confess-0.009003/lib/Devel/Confess/Builtin.pm --- old/Devel-Confess-0.009002/lib/Devel/Confess/Builtin.pm 2016-09-04 21:36:04.000000000 +0200 +++ new/Devel-Confess-0.009003/lib/Devel/Confess/Builtin.pm 2016-11-18 21:41:28.000000000 +0100 @@ -3,7 +3,7 @@ use warnings FATAL => 'all'; no warnings 'once'; -our $VERSION = '0.009002'; +our $VERSION = '0.009003'; $VERSION = eval $VERSION; use Devel::Confess::_Util (); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Devel-Confess-0.009002/lib/Devel/Confess/Source.pm new/Devel-Confess-0.009003/lib/Devel/Confess/Source.pm --- old/Devel-Confess-0.009002/lib/Devel/Confess/Source.pm 2016-08-23 07:00:49.000000000 +0200 +++ new/Devel-Confess-0.009003/lib/Devel/Confess/Source.pm 2016-09-07 00:22:18.000000000 +0200 @@ -4,7 +4,7 @@ use warnings FATAL => 'all'; sub import { - $^P |= $] >= 5.010 ? 0x400 : do { + $^P |= "$]" >= 5.010 ? 0x400 : do { *DB::DB = sub {} unless defined &DB::DB; 0x02; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Devel-Confess-0.009002/lib/Devel/Confess/_Util.pm new/Devel-Confess-0.009003/lib/Devel/Confess/_Util.pm --- old/Devel-Confess-0.009002/lib/Devel/Confess/_Util.pm 2016-09-04 21:03:26.000000000 +0200 +++ new/Devel-Confess-0.009003/lib/Devel/Confess/_Util.pm 2016-11-17 01:07:59.000000000 +0100 @@ -4,9 +4,19 @@ use warnings FATAL => 'all'; no warnings 'once'; -use base 'Exporter'; +use Exporter (); BEGIN { *import = \&Exporter::import } -our @EXPORT = qw(blessed refaddr weaken longmess _str_val _in_END _can_stringify); +our @EXPORT = qw( + blessed + refaddr + weaken + longmess + _str_val + _in_END + _can_stringify + _can + _isa +); use Carp (); use Carp::Heavy (); @@ -159,7 +169,7 @@ } } -if ($] < 5.008) { +if ("$]" < 5.008) { eval q{ sub _can_stringify () { my $i = 0; @@ -185,4 +195,35 @@ } or die $@; } +sub _isa; +if ($INC{'UNIVERSAL/isa.pm'}) { + *__isa = \&UNIVERSAL::isa; + eval q{ + sub _isa { + local $UNIVERSAL::isa::recursing = 1; + local $UNIVERSAL::isa::_recursing = 1; + __isa(@_); + } + 1; + } or die $@; +} +else { + *_isa = \&UNIVERSAL::isa; +} + +sub _can; +if ($INC{'UNIVERSAL/can.pm'}) { + *__can = \&UNIVERSAL::can; + eval q{ + sub _can { + local $UNIVERSAL::can::recursing = 1; + __can(@_); + } + 1; + } or die $@; +} +else { + *_can = \&UNIVERSAL::can; +} + 1; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Devel-Confess-0.009002/lib/Devel/Confess.pm new/Devel-Confess-0.009003/lib/Devel/Confess.pm --- old/Devel-Confess-0.009002/lib/Devel/Confess.pm 2016-09-04 21:36:04.000000000 +0200 +++ new/Devel-Confess-0.009003/lib/Devel/Confess.pm 2016-11-18 21:41:28.000000000 +0100 @@ -1,6 +1,6 @@ package Devel::Confess; BEGIN { - my $can_use_informative_names = $] >= 5.008; + my $can_use_informative_names = "$]" >= 5.008; # detect -d:Confess. disable debugger features for now. we'll # enable them when we need them. if (!defined &DB::DB && $^P & 0x02) { @@ -16,28 +16,38 @@ use warnings; no warnings 'once'; -our $VERSION = '0.009002'; +our $VERSION = '0.009003'; $VERSION = eval $VERSION; use Carp (); use Symbol (); -use Devel::Confess::_Util qw(blessed refaddr weaken longmess _str_val _in_END _can_stringify); +use Devel::Confess::_Util qw( + blessed + refaddr + weaken + longmess + _str_val + _in_END + _can_stringify + _can + _isa +); use Config (); BEGIN { - *_can = \&UNIVERSAL::can; - *_BROKEN_CLONED_DESTROY_REBLESS - = ($] >= 5.008009 && $] < 5.010000) ? sub () { 1 } : sub () { 0 }; + = ("$]" >= 5.008009 && "$]" < 5.010000) ? sub () { 1 } : sub () { 0 }; *_BROKEN_CLONED_GLOB_UNDEF - = ($] > 5.008009 && $] <= 5.010000) ? sub () { 1 } : sub () { 0 }; + = ("$]" > 5.008009 && "$]" <= 5.010000) ? sub () { 1 } : sub () { 0 }; *_BROKEN_SIG_DELETE - = ($] < 5.008008) ? sub () { 1 } : sub () { 0 }; + = ("$]" < 5.008008) ? sub () { 1 } : sub () { 0 }; *_DEBUGGING = ( defined &Config::non_bincompat_options ? (grep $_ eq 'DEBUGGING', Config::non_bincompat_options()) : ($Config::Config{ccflags} =~ /-DDEBUGGING\b/) ) ? sub () { 1 } : sub () { 0 }; + my $inf = 9**9**9; + *_INF = sub () { $inf } } $Carp::Internal{+__PACKAGE__}++; @@ -104,7 +114,7 @@ if ($NUMOPTS{$opt}) { $value = !defined $value ? 0 - : !$value ? 1e10000 + : !$value ? _INF : 0+$value; } $opts{$opt} = $value; @@ -265,7 +275,7 @@ local $Data::Dumper::Purity = 0; local $Data::Dumper::Terse = 1; local $Data::Dumper::Useqq = 1; - local $Data::Dumper::Maxdepth = $OPTIONS{dump} eq 'inf' ? 0 : $OPTIONS{dump}; + local $Data::Dumper::Maxdepth = $OPTIONS{dump} == _INF ? 0 : $OPTIONS{dump}; Data::Dumper::Dumper($_[0]); } @@ -329,7 +339,7 @@ my $id = refaddr($ex); if (defined $EXCEPTIONS{$id}) { return @_ - if $ex->isa("Devel::Confess::_Attached"); + if _isa($ex, "Devel::Confess::_Attached"); # something is going very wrong. possibly from a Safe compartment. # we probably broke something, but do the best we can. @@ -457,31 +467,39 @@ use overload fallback => 1, 'bool' => sub { + package + Devel::Confess; my $ex = $_[0]; - my $class = $PACKAGES{Devel::Confess::refaddr($ex)}; + my $class = $PACKAGES{refaddr($ex)}; my $newclass = ref $ex; bless $ex, $class; - my $out = !!$ex; + my $out = $ex ? !!1 : !!0; bless $ex, $newclass; return $out; }, '0+' => sub { + package + Devel::Confess; my $ex = $_[0]; - my $class = $PACKAGES{Devel::Confess::refaddr($ex)}; + my $class = $PACKAGES{refaddr($ex)}; my $newclass = ref $ex; bless $ex, $class; - my $out = 0+sprintf '%f', $ex; + my $out = 0+sprintf '%.20g', $ex; bless $ex, $newclass; return $out; }, '""' => sub { - return join('', Devel::Confess::_ex_as_strings(@_)); + package + Devel::Confess; + join('', _ex_as_strings(@_)); }, ; sub DESTROY { + package + Devel::Confess; my $ex = $_[0]; - my $id = Devel::Confess::refaddr($ex); + my $id = refaddr($ex); my $class = delete $PACKAGES{$id} or return; delete $MESSAGES{$id}; delete $EXCEPTIONS{$id}; @@ -490,7 +508,7 @@ my $cloned; # delete_package is more complete, but can explode on some perls - if (Devel::Confess::_BROKEN_CLONED_GLOB_UNDEF && delete $Devel::Confess::CLONED{$id}) { + if (_BROKEN_CLONED_GLOB_UNDEF && delete $CLONED{$id}) { $cloned = 1; no strict 'refs'; @{"${newclass}::ISA"} = (); @@ -501,8 +519,8 @@ Symbol::delete_package($newclass); } - if (Devel::Confess::_BROKEN_CLONED_DESTROY_REBLESS && $cloned || delete $Devel::Confess::CLONED{$id}) { - my $destroy = $class->can('DESTROY') || return; + if (_BROKEN_CLONED_DESTROY_REBLESS && $cloned || delete $CLONED{$id}) { + my $destroy = _can($class, 'DESTROY') || return; goto $destroy; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Devel-Confess-0.009002/t/safe.t new/Devel-Confess-0.009003/t/safe.t --- old/Devel-Confess-0.009002/t/safe.t 2015-07-03 03:00:09.000000000 +0200 +++ new/Devel-Confess-0.009003/t/safe.t 2016-09-07 00:22:09.000000000 +0200 @@ -8,7 +8,7 @@ use Devel::Confess (); local $TODO = 'not working reliably with Safe in perl 5.6' - if $] < 5.008; + if "$]" < 5.008; { package Shared::Ex; use overload '""' => sub { $_[0]->{message} }; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Devel-Confess-0.009002/t/sig.t new/Devel-Confess-0.009003/t/sig.t --- old/Devel-Confess-0.009002/t/sig.t 2016-08-18 05:33:53.000000000 +0200 +++ new/Devel-Confess-0.009003/t/sig.t 2016-09-08 14:51:38.000000000 +0200 @@ -10,6 +10,7 @@ # preload to make sure we only test the effect of our own import use base (); use Exporter (); +use Exporter::Heavy (); use Carp (); use Carp::Heavy (); use Symbol (); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Devel-Confess-0.009002/t/universal.t new/Devel-Confess-0.009003/t/universal.t --- old/Devel-Confess-0.009002/t/universal.t 1970-01-01 01:00:00.000000000 +0100 +++ new/Devel-Confess-0.009003/t/universal.t 2016-11-18 16:00:05.000000000 +0100 @@ -0,0 +1,33 @@ +use strict; +use warnings; +BEGIN { + $ENV{DEVEL_CONFESS_OPTIONS} = ''; +} +use Test::More ($ENV{RELEASE_TESTING} || eval { + require UNIVERSAL::isa; + require UNIVERSAL::can; +}) ? (tests => 1) + : (skip_all => 'UNIVERSAL::can and UNIVERSAL::isa required for this test'); +use Carp (); +use Carp::Heavy (); + +use Devel::Confess qw(nowarnings); + +{ + package Thing1; + sub isa { UNIVERSAL::isa(@_) } + sub can { UNIVERSAL::can(@_) } +} + +my @warnings; +my $o = bless {}, 'Thing1'; +local $SIG{__WARN__} = sub { push @warnings, $_[0] }; +eval { + die $o; +}; +eval { + die $o; +}; + +is join('', @warnings), '', + "no warnings produced from error class with overridden can"; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Devel-Confess-0.009002/xt/builtin.t new/Devel-Confess-0.009003/xt/builtin.t --- old/Devel-Confess-0.009002/xt/builtin.t 2016-08-18 05:33:53.000000000 +0200 +++ new/Devel-Confess-0.009003/xt/builtin.t 2016-11-13 20:53:35.000000000 +0100 @@ -35,17 +35,17 @@ my $code = <<END; $declare -package A; +package PackageA; sub f { $info->{throw} } -package B; +package PackageB; sub g { -A::f(); +PackageA::f(); } END - my $before = capture_builtin $code.'B::g();'; - my $after = capture $code.'require Devel::Confess::Builtin;Devel::Confess::Builtin->import(); B::g();'; - like $before, qr/B::g/, "verbose when loaded before $class"; - like $after, qr/B::g/, "verbose when loaded after $class"; + my $before = capture_builtin $code.'PackageB::g();'; + my $after = capture $code.'require Devel::Confess::Builtin;Devel::Confess::Builtin->import(); PackageB::g();'; + like $before, qr/PackageB::g/, "verbose when loaded before $class"; + like $after, qr/PackageB::g/, "verbose when loaded after $class"; }