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";
 }


Reply via email to