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 - coolo@suse.com
+
+- 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. When not set, this indicates that this is the last op in an
+ C<OpSIBLING> chain. This frees up the C field on the last
+ sibling to point back to the parent op. Under this build, that field is
+ also renamed C to reflect its joint role. The macro
+ C wraps this special behaviour, and always returns NULL on
+ the last sibling. With this build the C function can be
+ used to find the parent of any op. Thus for forward compatibility, you
+ should always use the C macro rather than accessing
+ C 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. When not set, this indicates that this is the last op in an
+ C<OpSIBLING> chain. This frees up the C field on the last
+ sibling to point back to the parent op. Under this build, that field is
+ also renamed C to reflect its joint role. The macro
+ C wraps this special behaviour, and always returns NULL on
+ the last sibling. With this build the C function can be
+ used to find the parent of any op. Thus for forward compatibility, you
+ should always use the C macro rather than accessing
+ C 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
