Hello community, here is the log from the commit of package perl-Want for openSUSE:Factory checked in at 2015-05-02 17:44:18 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 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 2015-04-15 16:27:31.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.perl-Want.new/perl-Want.changes 2015-05-02 17:44:19.000000000 +0200 @@ -1,0 +2,25 @@ +Wed Apr 29 10:35:45 UTC 2015 - [email protected] + +- updated to 0.26 + see /usr/share/doc/packages/perl-Want/Changes + + + 0.26 Tue 28 Apr 2015 12:31:17 BST + - There is a new experimental option in bleadperl under which one ought not to use + the op_sibling field directly. Quoting from perlguts.pod: + + “ Starting in version 5.21.2, perls built with the experimental + define C<-DPERL_OP_PARENT> add an extra boolean flag for each op, + C<op_moresib>. When not set, this indicates that this is the last op in an + C<OpSIBLING> chain. This frees up the C<op_sibling> field on the last + sibling to point back to the parent op. Under this build, that field is + also renamed C<op_sibparent> to reflect its joint role. The macro + C<OpSIBLING(o)> wraps this special behaviour, and always returns NULL on + the last sibling. With this build the C<op_parent(o)> function can be + used to find the parent of any op. Thus for forward compatibility, you + should always use the C<OpSIBLING(o)> macro rather than accessing + C<op_sibling> directly. ” + + Thanks to Reini Urban for the patch. + +------------------------------------------------------------------- Old: ---- Want-0.25.tar.gz New: ---- Want-0.26.tar.gz cpanspec.yml ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Want.spec ++++++ --- /var/tmp/diff_new_pack.rgXVoG/_old 2015-05-02 17:44:20.000000000 +0200 +++ /var/tmp/diff_new_pack.rgXVoG/_new 2015-05-02 17:44:20.000000000 +0200 @@ -17,14 +17,15 @@ Name: perl-Want -Version: 0.25 +Version: 0.26 Release: 0 %define cpan_name Want -Summary: A generalisation of C<wantarray> +Summary: Generalisation of C<Wantarray> License: GPL-1.0+ or Artistic-1.0 Group: Development/Libraries/Perl Url: http://search.cpan.org/dist/Want/ -Source: http://www.cpan.org/authors/id/R/RO/ROBIN/%{cpan_name}-%{version}.tar.gz +Source0: http://www.cpan.org/authors/id/R/RO/ROBIN/%{cpan_name}-%{version}.tar.gz +Source1: cpanspec.yml BuildRoot: %{_tmppath}/%{name}-%{version}-build BuildRequires: perl BuildRequires: perl-macros ++++++ Want-0.25.tar.gz -> Want-0.26.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Want-0.25/Changes new/Want-0.26/Changes --- old/Want-0.25/Changes 2014-12-10 20:32:40.000000000 +0100 +++ new/Want-0.26/Changes 2015-04-28 13:33:22.000000000 +0200 @@ -124,3 +124,21 @@ - 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. + +0.26 Tue 28 Apr 2015 12:31:17 BST + - There is a new experimental option in bleadperl under which one ought not to use + the op_sibling field directly. Quoting from perlguts.pod: + + “ Starting in version 5.21.2, perls built with the experimental + define C<-DPERL_OP_PARENT> add an extra boolean flag for each op, + C<op_moresib>. When not set, this indicates that this is the last op in an + C<OpSIBLING> chain. This frees up the C<op_sibling> field on the last + sibling to point back to the parent op. Under this build, that field is + also renamed C<op_sibparent> to reflect its joint role. The macro + C<OpSIBLING(o)> wraps this special behaviour, and always returns NULL on + the last sibling. With this build the C<op_parent(o)> function can be + used to find the parent of any op. Thus for forward compatibility, you + should always use the C<OpSIBLING(o)> macro rather than accessing + C<op_sibling> directly. ” + + Thanks to Reini Urban for the patch. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Want-0.25/META.json new/Want-0.26/META.json --- old/Want-0.25/META.json 2014-12-10 20:33:41.000000000 +0100 +++ new/Want-0.26/META.json 2015-04-28 13:34:14.000000000 +0200 @@ -4,7 +4,7 @@ "unknown" ], "dynamic_config" : 1, - "generated_by" : "ExtUtils::MakeMaker version 7.04, CPAN::Meta::Converter version 2.143240", + "generated_by" : "ExtUtils::MakeMaker version 6.66, CPAN::Meta::Converter version 2.120921", "license" : [ "unknown" ], @@ -35,5 +35,5 @@ } }, "release_status" : "stable", - "version" : "0.25" + "version" : "0.26" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Want-0.25/META.yml new/Want-0.26/META.yml --- old/Want-0.25/META.yml 2014-12-10 20:33:41.000000000 +0100 +++ new/Want-0.26/META.yml 2015-04-28 13:34:14.000000000 +0200 @@ -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 7.04, CPAN::Meta::Converter version 2.143240' +generated_by: 'ExtUtils::MakeMaker version 6.66, CPAN::Meta::Converter version 2.120921' 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.25' +version: 0.26 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Want-0.25/README new/Want-0.26/README --- old/Want-0.25/README 2014-12-10 20:30:49.000000000 +0100 +++ new/Want-0.26/README 2015-04-28 13:29:56.000000000 +0200 @@ -1,5 +1,5 @@ ----------------------------------------------------------------------------- -| Want v0.25 - Robin Houston, 2014-12-10 +| Want v0.26 - Robin Houston, 2015-04-28 ----------------------------------------------------------------------------- For full documentation, see the POD included with the module. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Want-0.25/Want.pm new/Want-0.26/Want.pm --- old/Want-0.25/Want.pm 2014-12-10 20:30:38.000000000 +0100 +++ new/Want-0.26/Want.pm 2015-04-28 13:29:59.000000000 +0200 @@ -12,7 +12,7 @@ our @EXPORT = qw(want rreturn lnoreturn); our @EXPORT_OK = qw(howmany wantref); -our $VERSION = '0.25'; +our $VERSION = '0.26'; bootstrap Want $VERSION; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Want-0.25/Want.xs new/Want-0.26/Want.xs --- old/Want-0.25/Want.xs 2014-12-10 20:29:52.000000000 +0100 +++ new/Want-0.26/Want.xs 2015-04-28 13:25:45.000000000 +0200 @@ -19,6 +19,10 @@ # define CxLVAL(cx) cx->blk_sub.lval #endif +#ifndef OpSIBLING +# define OpSIBLING(o) o->op_sibling +#endif + /* Stolen from B.xs */ #ifdef PERL_OBJECT @@ -282,7 +286,7 @@ else ll = l->length; /* printf("Looking for 0x%x starting at 0x%x\n", next, start); */ - for (o = start; o; p = o, o = o->op_sibling, ++cn) { + for (o = start; o; p = o, o = OpSIBLING(o), ++cn) { /* printf("(0x%x) %s -> 0x%x\n", o, PL_op_name[o->op_type], o->op_next);*/ if (o->op_type == OP_ENTERSUB && o->op_next == next) @@ -359,7 +363,7 @@ if (pm->op_type != OP_PUSHMARK) die("%s", "Want panicked: slice doesn't start with pushmark\n"); - if ( (l = pm->op_sibling) && (l->op_type == OP_LIST || (l->op_type == OP_NULL && l->op_targ == OP_LIST))) + if ( (l = OpSIBLING(pm)) && (l->op_type == OP_LIST || (l->op_type == OP_NULL && l->op_targ == OP_LIST))) return count_list(l, Nullop); else if (l) @@ -398,7 +402,7 @@ return 0; /*printf("count_list: returnop = 0x%x\n", returnop);*/ - for(o = cUNOPx(parent)->op_first; o; o=o->op_sibling) { + for(o = cUNOPx(parent)->op_first; o; o=OpSIBLING(o)) { /* printf("\t%-8s\t(0x%x)\n", PL_op_name[o->op_type], o->op_next);*/ if (returnop && o->op_type == OP_ENTERSUB && o->op_next == returnop) return i; @@ -528,7 +532,7 @@ PPCODE: /* This is a bit of a cheat, admittedly... */ if (o && o->op_type == OP_ENTERSUB && (first = cUNOPo->op_first) - && (second = first->op_sibling) && second->op_sibling != Nullop) + && (second = OpSIBLING(first)) && OpSIBLING(second) != Nullop) retval = "method_call"; else { retval = o ? (char *)PL_op_name[o->op_type] : "(none)"; ++++++ cpanspec.yml ++++++ --- #description_paragraphs: 3 #no_testing: broken upstream #sources: # - source1 # - source2 #patches: # foo.patch: -p1 # bar.patch: #preamble: |- # BuildRequires: gcc-c++ #post_prep: |- # hunspell=`pkg-config --libs hunspell | sed -e 's,-l,,; s, *,,g'` # sed -i -e "s,hunspell-X,$hunspell," t/00-prereq.t Makefile.PL #post_install: |- # sed on %{name}.files #license: SUSE-NonFree #skip_noarch: 1 #custom_build: |- #./Build build flags=%{?_smp_mflags} --myflag #custom_test: |- #startserver && make test #ignore_requires: Bizarre::Module
