Hello community, here is the log from the commit of package perl-PadWalker for openSUSE:Factory checked in at 2013-10-29 09:31:30 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-PadWalker (Old) and /work/SRC/openSUSE:Factory/.perl-PadWalker.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-PadWalker" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-PadWalker/perl-PadWalker.changes 2013-06-13 18:19:24.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.perl-PadWalker.new/perl-PadWalker.changes 2013-10-29 09:31:32.000000000 +0100 @@ -1,0 +2,9 @@ +Sun Oct 27 21:09:50 UTC 2013 - [email protected] + +- Update to latest version 1.98 + + Improve peek_sub error handling + Thanks to Zefram for the bug report. + See https://rt.cpan.org/Ticket/Display.html?id=89679 + + Make new test compatible with old versions of perl. + +------------------------------------------------------------------- Old: ---- PadWalker-1.96.tar.gz New: ---- PadWalker-1.98.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-PadWalker.spec ++++++ --- /var/tmp/diff_new_pack.1CKMcO/_old 2013-10-29 09:31:33.000000000 +0100 +++ /var/tmp/diff_new_pack.1CKMcO/_new 2013-10-29 09:31:33.000000000 +0100 @@ -21,7 +21,7 @@ Summary: Play with other peoples' lexical variables License: GPL-1.0+ or Artistic-1.0 Group: Development/Libraries/Perl -Version: 1.96 +Version: 1.98 Release: 0 Url: http://search.cpan.org/dist/PadWalker/ Source: http://www.cpan.org/authors/id/R/RO/ROBIN/PadWalker-%{version}.tar.gz ++++++ PadWalker-1.96.tar.gz -> PadWalker-1.98.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PadWalker-1.96/Changes new/PadWalker-1.98/Changes --- old/PadWalker-1.96/Changes 2012-08-24 14:03:58.000000000 +0200 +++ new/PadWalker-1.98/Changes 2013-10-27 17:45:27.000000000 +0100 @@ -157,3 +157,11 @@ 1.96 Fri 24 Aug 2012 13:03:31 BST - Restore compatibility with Perl 5.8 Thanks again to Father Chrysostomous + +1.97 Sun 27 Oct 2013 10:09:41 GMT + - Improve peek_sub error handling + Thanks to Zefram for the bug report. + See https://rt.cpan.org/Ticket/Display.html?id=89679 + +1.98 Sun 27 Oct 2013 16:27:19 GMT + - Make new test compatible with old versions of perl. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PadWalker-1.96/MANIFEST new/PadWalker-1.98/MANIFEST --- old/PadWalker-1.96/MANIFEST 2012-02-05 16:52:17.000000000 +0100 +++ new/PadWalker-1.98/MANIFEST 2013-10-27 17:46:17.000000000 +0100 @@ -18,3 +18,4 @@ t/vn-inc-1.pl t/vn-inc-2.pl META.yml Module 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/PadWalker-1.96/META.json new/PadWalker-1.98/META.json --- old/PadWalker-1.96/META.json 1970-01-01 01:00:00.000000000 +0100 +++ new/PadWalker-1.98/META.json 2013-10-27 17:46:16.000000000 +0100 @@ -0,0 +1,41 @@ +{ + "abstract" : "unknown", + "author" : [ + "unknown" + ], + "dynamic_config" : 1, + "generated_by" : "ExtUtils::MakeMaker version 6.6302, CPAN::Meta::Converter version 2.120921", + "license" : [ + "unknown" + ], + "meta-spec" : { + "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec";, + "version" : "2" + }, + "name" : "PadWalker", + "no_index" : { + "directory" : [ + "t", + "inc" + ] + }, + "prereqs" : { + "build" : { + "requires" : { + "ExtUtils::MakeMaker" : "0" + } + }, + "configure" : { + "requires" : { + "ExtUtils::MakeMaker" : "0" + } + }, + "runtime" : { + "requires" : { + "perl" : "5.008001" + } + } + }, + "release_status" : "stable", + "version" : "1.98" +} diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PadWalker-1.96/META.yml new/PadWalker-1.98/META.yml --- old/PadWalker-1.96/META.yml 2012-08-24 14:07:25.000000000 +0200 +++ new/PadWalker-1.98/META.yml 2013-10-27 17:46:16.000000000 +0100 @@ -1,21 +1,22 @@ ---- #YAML:1.0 -name: PadWalker -version: 1.96 -abstract: ~ -author: [] -license: unknown -distribution_type: module -configure_requires: - ExtUtils::MakeMaker: 0 +--- +abstract: unknown +author: + - unknown build_requires: - ExtUtils::MakeMaker: 0 -requires: - perl: 5.008001 -no_index: - directory: - - t - - inc -generated_by: ExtUtils::MakeMaker version 6.57_05 + ExtUtils::MakeMaker: 0 +configure_requires: + ExtUtils::MakeMaker: 0 +dynamic_config: 1 +generated_by: 'ExtUtils::MakeMaker version 6.6302, CPAN::Meta::Converter version 2.120921' +license: unknown meta-spec: - url: http://module-build.sourceforge.net/META-spec-v1.4.html - version: 1.4 + url: http://module-build.sourceforge.net/META-spec-v1.4.html + version: 1.4 +name: PadWalker +no_index: + directory: + - t + - inc +requires: + perl: 5.008001 +version: 1.98 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PadWalker-1.96/PadWalker.pm new/PadWalker-1.98/PadWalker.pm --- old/PadWalker-1.96/PadWalker.pm 2012-08-24 14:03:24.000000000 +0200 +++ new/PadWalker-1.98/PadWalker.pm 2013-10-27 17:30:15.000000000 +0100 @@ -12,7 +12,7 @@ @EXPORT_OK = qw(peek_my peek_our closed_over peek_sub var_name set_closed_over); %EXPORT_TAGS = (all => \@EXPORT_OK); -$VERSION = '1.96'; +$VERSION = '1.98'; bootstrap PadWalker $VERSION; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PadWalker-1.96/PadWalker.xs new/PadWalker-1.98/PadWalker.xs --- old/PadWalker-1.96/PadWalker.xs 2012-08-24 11:57:19.000000000 +0200 +++ new/PadWalker-1.98/PadWalker.xs 2013-10-27 11:11:36.000000000 +0100 @@ -285,7 +285,10 @@ if (depth == 0) depth = 1; - /* We blindly deref this, cos it's always there (AFAIK!) */ + if (!padlist) { + /* Probably an XSUB */ + die("PadWalker: cv has no padlist"); + } pad_namelist = PadlistNAMES(padlist); pad_vallist = PadlistARRAY(padlist)[depth]; @@ -408,7 +411,7 @@ if (PadnameOUTER(name_sv) && !PadnameIsOUR(name_sv)) { SV *val_sv = PadARRAY(pad_vallist)[i]; - if (!val_sv) val_sv = &PL_sv_undef; + if (!val_sv) val_sv = &PL_sv_undef; #ifdef PADWALKER_DEBUGGING debug_print(("Found a fake slot: %s\n", name_str)); if (val == 0) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PadWalker-1.96/README new/PadWalker-1.98/README --- old/PadWalker-1.96/README 2012-08-24 14:03:20.000000000 +0200 +++ new/PadWalker-1.98/README 2013-10-27 17:30:20.000000000 +0100 @@ -1,5 +1,5 @@ ----------------------------------------------------------------------------- -| PadWalker v1.96 - Robin Houston +| PadWalker v1.98 - Robin Houston ----------------------------------------------------------------------------- NAME diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PadWalker-1.96/t/sub.t new/PadWalker-1.98/t/sub.t --- old/PadWalker-1.96/t/sub.t 2012-02-05 16:52:17.000000000 +0100 +++ new/PadWalker-1.98/t/sub.t 2013-10-27 17:43:55.000000000 +0100 @@ -1,7 +1,7 @@ use strict; use warnings; use PadWalker 'peek_sub'; -print "1..4\n"; +print "1..6\n"; my $t = 0; @@ -49,3 +49,9 @@ my $h = peek_sub(sub {my $y = $x}); print (($h->{'$x'} == \$x) ? "ok 4\n" : "not ok 4\n"); +# Make sure it correctly signals an exception if the sub is not a Perl sub +eval { no warnings "uninitialized"; peek_sub(undef); }; +print (($@ =~ /cv is not a code reference/i) ? "ok 5\n" : "not ok 5\n"); + +eval { peek_sub(\&peek_sub); }; +print (($@ =~ /cv has no padlist/) ? "ok 6\n" : "not ok 6\n"); -- To unsubscribe, e-mail: [email protected] For additional commands, e-mail: [email protected]
