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 - coolo@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) "
],
"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) '
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 = <{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";
}
