Hello community, here is the log from the commit of package perl-Want for openSUSE:Factory checked in at 2015-04-15 16:27:30 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Want (Old) and /work/SRC/openSUSE:Factory/.perl-Want.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Want" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Want/perl-Want.changes 2014-07-21 10:35:44.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.perl-Want.new/perl-Want.changes 2015-04-15 16:27:31.000000000 +0200 @@ -1,0 +2,16 @@ +Tue Apr 14 21:14:41 UTC 2015 - [email protected] + +- updated to 0.25 + see /usr/share/doc/packages/perl-Want/Changes + + + 0.24 Tue 2 Dec 2014 10:22:39 GMT + - Accommodate another bleadperl change. Patch provided by Father Chrysostomos at + https://rt.cpan.org/Public/Bug/Display.html?id=100626 + + 0.25 Wed 10 Dec 2014 19:31:03 GMT + - Add support for the new OP_MULTIDEREF + Perl has a new op, added as a performance optimisation in fedf30e1c349130b23648c022f5f3cb4ad7928f3, + to represent a sequence of array/hash dereferences. This patch adds support for the new op. + +------------------------------------------------------------------- Old: ---- Want-0.23.tar.gz New: ---- Want-0.25.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Want.spec ++++++ --- /var/tmp/diff_new_pack.1bARjq/_old 2015-04-15 16:27:31.000000000 +0200 +++ /var/tmp/diff_new_pack.1bARjq/_new 2015-04-15 16:27:31.000000000 +0200 @@ -1,7 +1,7 @@ # # spec file for package perl-Want # -# Copyright (c) 2014 SUSE LINUX Products GmbH, Nuernberg, Germany. +# Copyright (c) 2015 SUSE LINUX GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -17,7 +17,7 @@ Name: perl-Want -Version: 0.23 +Version: 0.25 Release: 0 %define cpan_name Want Summary: A generalisation of C<wantarray> ++++++ Want-0.23.tar.gz -> Want-0.25.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Want-0.23/Changes new/Want-0.25/Changes --- old/Want-0.23/Changes 2014-03-24 01:30:50.000000000 +0100 +++ new/Want-0.25/Changes 2014-12-10 20:32:40.000000000 +0100 @@ -115,3 +115,12 @@ 0.23 Mon 24 Mar 2014 00:28:36 GMT - Accommodate a bleadperl change to the optree, made in 7d3c8a6837b55fff0e6294ebf8c94a1601367c76. This is bug #94086 for Want, and bug #121342 for perl5. + +0.24 Tue 2 Dec 2014 10:22:39 GMT + - Accommodate another bleadperl change. Patch provided by Father Chrysostomos at + https://rt.cpan.org/Public/Bug/Display.html?id=100626 + +0.25 Wed 10 Dec 2014 19:31:03 GMT + - Add support for the new OP_MULTIDEREF + Perl has a new op, added as a performance optimisation in fedf30e1c349130b23648c022f5f3cb4ad7928f3, + to represent a sequence of array/hash dereferences. This patch adds support for the new op. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Want-0.23/META.json new/Want-0.25/META.json --- old/Want-0.23/META.json 2014-03-24 01:31:09.000000000 +0100 +++ new/Want-0.25/META.json 2014-12-10 20:33:41.000000000 +0100 @@ -4,7 +4,7 @@ "unknown" ], "dynamic_config" : 1, - "generated_by" : "ExtUtils::MakeMaker version 6.6302, CPAN::Meta::Converter version 2.120921", + "generated_by" : "ExtUtils::MakeMaker version 7.04, CPAN::Meta::Converter version 2.143240", "license" : [ "unknown" ], @@ -35,5 +35,5 @@ } }, "release_status" : "stable", - "version" : "0.23" + "version" : "0.25" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Want-0.23/META.yml new/Want-0.25/META.yml --- old/Want-0.23/META.yml 2014-03-24 01:31:09.000000000 +0100 +++ new/Want-0.25/META.yml 2014-12-10 20:33:41.000000000 +0100 @@ -3,19 +3,19 @@ author: - unknown build_requires: - ExtUtils::MakeMaker: 0 + ExtUtils::MakeMaker: '0' configure_requires: - ExtUtils::MakeMaker: 0 + ExtUtils::MakeMaker: '0' dynamic_config: 1 -generated_by: 'ExtUtils::MakeMaker version 6.6302, CPAN::Meta::Converter version 2.120921' +generated_by: 'ExtUtils::MakeMaker version 7.04, CPAN::Meta::Converter version 2.143240' license: unknown meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html - version: 1.4 + version: '1.4' name: Want no_index: directory: - t - inc requires: {} -version: 0.23 +version: '0.25' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Want-0.23/README new/Want-0.25/README --- old/Want-0.23/README 2014-03-24 01:29:06.000000000 +0100 +++ new/Want-0.25/README 2014-12-10 20:30:49.000000000 +0100 @@ -1,5 +1,5 @@ ----------------------------------------------------------------------------- -| Want v0.23 - Robin Houston, 2014-03-24 +| Want v0.25 - Robin Houston, 2014-12-10 ----------------------------------------------------------------------------- For full documentation, see the POD included with the module. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Want-0.23/Want.pm new/Want-0.25/Want.pm --- old/Want-0.23/Want.pm 2014-03-24 01:28:47.000000000 +0100 +++ new/Want-0.25/Want.pm 2014-12-10 20:30:38.000000000 +0100 @@ -12,7 +12,7 @@ our @EXPORT = qw(want rreturn lnoreturn); our @EXPORT_OK = qw(howmany wantref); -our $VERSION = '0.23'; +our $VERSION = '0.25'; bootstrap Want $VERSION; @@ -128,7 +128,8 @@ } sub wantref { - my $n = parent_op_name(bump_level(@_, 1)); + my $level = bump_level(@_, 1); + my $n = parent_op_name($level); if ($n eq 'rv2av') { return "ARRAY"; } @@ -147,6 +148,9 @@ elsif ($n eq 'method_call') { return 'OBJECT'; } + elsif ($n eq 'multideref') { + return first_multideref_type($level); + } else { return ""; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Want-0.23/Want.xs new/Want-0.25/Want.xs --- old/Want-0.23/Want.xs 2014-03-24 01:28:03.000000000 +0100 +++ new/Want-0.25/Want.xs 2014-12-10 20:29:52.000000000 +0100 @@ -543,6 +543,57 @@ PUSHs(sv_2mortal(newSVpv(retval, 0))); } +#ifdef OPpMULTIDEREF_EXISTS +char* +first_multideref_type(uplevel) +I32 uplevel; + PREINIT: + OP *r; + OP *o = parent_op(uplevel, &r); + UNOP_AUX_item *items; + UV actions; + bool repeat; + char *retval; + PPCODE: + if (o->op_type != OP_MULTIDEREF) Perl_croak(aTHX_ "Not a multideref op!"); + items = cUNOP_AUXx(o)->op_aux; + actions = items->uv; + + do { + repeat = FALSE; + switch (actions & MDEREF_ACTION_MASK) { + case MDEREF_reload: + actions = (++items)->uv; + repeat = TRUE; + continue; + + case MDEREF_AV_pop_rv2av_aelem: + case MDEREF_AV_gvsv_vivify_rv2av_aelem: + case MDEREF_AV_padsv_vivify_rv2av_aelem: + case MDEREF_AV_vivify_rv2av_aelem: + case MDEREF_AV_padav_aelem: + case MDEREF_AV_gvav_aelem: + retval = "ARRAY"; + break; + + case MDEREF_HV_pop_rv2hv_helem: + case MDEREF_HV_gvsv_vivify_rv2hv_helem: + case MDEREF_HV_padsv_vivify_rv2hv_helem: + case MDEREF_HV_vivify_rv2hv_helem: + case MDEREF_HV_padhv_helem: + case MDEREF_HV_gvhv_helem: + retval = "HASH"; + break; + + default: + Perl_croak(aTHX_ "Unrecognised OP_MULTIDEREF action (%lu)!", actions & MDEREF_ACTION_MASK); + } + } while (repeat); + + EXTEND(SP, 1); + PUSHs(sv_2mortal(newSVpv(retval, 0))); + +#endif I32 want_count(uplevel) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Want-0.23/t/all.t new/Want-0.25/t/all.t --- old/Want-0.23/t/all.t 2013-12-15 18:05:02.000000000 +0100 +++ new/Want-0.25/t/all.t 2014-12-02 11:22:35.000000000 +0100 @@ -140,7 +140,7 @@ @x = g(36, 'RVALUE', 'LIST'); @x = \(g(37, 'LVALUE', 'LIST')); -($x) = \(scalar g(38, 'RVALUE')); +($x) = \(scalar g(38, $] >= 5.021007 ? ('LVALUE', 'SCALAR') : 'RVALUE')); $$x = 29; # There used to be a test here which tested that $y != 29. However this
