Hello community, here is the log from the commit of package perl-List-MoreUtils-XS for openSUSE:Factory checked in at 2017-10-11 22:55:16 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-List-MoreUtils-XS (Old) and /work/SRC/openSUSE:Factory/.perl-List-MoreUtils-XS.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-List-MoreUtils-XS" Wed Oct 11 22:55:16 2017 rev:4 rq:532525 version:0.426 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-List-MoreUtils-XS/perl-List-MoreUtils-XS.changes 2017-09-13 21:36:23.667041529 +0200 +++ /work/SRC/openSUSE:Factory/.perl-List-MoreUtils-XS.new/perl-List-MoreUtils-XS.changes 2017-10-11 22:55:18.308812378 +0200 @@ -1,0 +2,20 @@ +Tue Oct 3 05:40:02 UTC 2017 - co...@suse.com + +- updated to 0.426 + see /usr/share/doc/packages/perl-List-MoreUtils-XS/Changes + + 0.426 2017-10-02 + - release 0.425_001 as 0.426 + + 0.425_001 2017-09-27 + - Fix broken format in part (fixes issues/4, thanks Andreas Schwab + for reporting and testing the fix) + - Fix gcc 4.7 sequence point warning (fixes issues/5, thanks Andreas + Schwab for reporting and testing the fix) + - Fix incorrect padname resolving for perl > 5.21.6 (Fixes RT#122883, + thanks Alexander Bluhm <alexander.bl...@gmx.net> for reporting). + - Fix compiling issue on CentOS 4 & CentOS 5 (thanks Alex Karelas + <alex.kare...@gmail.com> for reporting and testing the fix) +- obsolete format.patch and undefined.patch + +------------------------------------------------------------------- Old: ---- List-MoreUtils-XS-0.423.tar.gz format.patch undefined.patch New: ---- List-MoreUtils-XS-0.426.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-List-MoreUtils-XS.spec ++++++ --- /var/tmp/diff_new_pack.fkYjtm/_old 2017-10-11 22:55:19.144775719 +0200 +++ /var/tmp/diff_new_pack.fkYjtm/_new 2017-10-11 22:55:19.144775719 +0200 @@ -17,7 +17,7 @@ Name: perl-List-MoreUtils-XS -Version: 0.423 +Version: 0.426 Release: 0 #Upstream: Apache-2.0 %define cpan_name List-MoreUtils-XS @@ -27,8 +27,6 @@ Url: http://search.cpan.org/dist/List-MoreUtils-XS/ Source0: https://cpan.metacpan.org/authors/id/R/RE/REHSACK/%{cpan_name}-%{version}.tar.gz Source1: cpanspec.yml -Patch0: format.patch -Patch1: undefined.patch BuildRoot: %{_tmppath}/%{name}-%{version}-build BuildRequires: perl BuildRequires: perl-macros @@ -46,8 +44,6 @@ %prep %setup -q -n %{cpan_name}-%{version} -%patch0 -p1 -%patch1 -p1 %build %{__perl} Makefile.PL INSTALLDIRS=vendor OPTIMIZE="%{optflags}" ++++++ List-MoreUtils-XS-0.423.tar.gz -> List-MoreUtils-XS-0.426.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/List-MoreUtils-XS-0.423/Changes new/List-MoreUtils-XS-0.426/Changes --- old/List-MoreUtils-XS-0.423/Changes 2017-08-19 08:55:27.000000000 +0200 +++ new/List-MoreUtils-XS-0.426/Changes 2017-10-02 16:15:12.000000000 +0200 @@ -1,5 +1,18 @@ Revision history for Perl extension List-MoreUtils-XS +0.426 2017-10-02 + - release 0.425_001 as 0.426 + +0.425_001 2017-09-27 + - Fix broken format in part (fixes issues/4, thanks Andreas Schwab + for reporting and testing the fix) + - Fix gcc 4.7 sequence point warning (fixes issues/5, thanks Andreas + Schwab for reporting and testing the fix) + - Fix incorrect padname resolving for perl > 5.21.6 (Fixes RT#122883, + thanks Alexander Bluhm <alexander.bl...@gmx.net> for reporting). + - Fix compiling issue on CentOS 4 & CentOS 5 (thanks Alex Karelas + <alex.kare...@gmail.com> for reporting and testing the fix) + 0.423 2017-08-19 - Fix dealing with lists with one element on bremove/binsert. Thanks shawnlaffan for reporting this via issues#2 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/List-MoreUtils-XS-0.423/META.json new/List-MoreUtils-XS-0.426/META.json --- old/List-MoreUtils-XS-0.423/META.json 2017-08-19 08:56:18.000000000 +0200 +++ new/List-MoreUtils-XS-0.426/META.json 2017-10-02 16:27:45.000000000 +0200 @@ -84,6 +84,6 @@ "web" : "https://github.com/perl5-utils/List-MoreUtils-XS" } }, - "version" : "0.423", + "version" : "0.426", "x_serialization_backend" : "JSON::PP version 2.94" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/List-MoreUtils-XS-0.423/META.yml new/List-MoreUtils-XS-0.426/META.yml --- old/List-MoreUtils-XS-0.423/META.yml 2017-08-19 08:56:18.000000000 +0200 +++ new/List-MoreUtils-XS-0.426/META.yml 2017-10-02 16:27:45.000000000 +0200 @@ -33,5 +33,5 @@ bugtracker: https://rt.cpan.org/Dist/Display.html?Name=List-MoreUtils-XS homepage: https://metacpan.org/release/List-MoreUtils-XS repository: https://github.com/perl5-utils/List-MoreUtils-XS.git -version: '0.423' +version: '0.426' x_serialization_backend: 'CPAN::Meta::YAML version 0.018' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/List-MoreUtils-XS-0.423/XS.xs new/List-MoreUtils-XS-0.426/XS.xs --- old/List-MoreUtils-XS-0.423/XS.xs 2017-08-18 12:40:54.000000000 +0200 +++ new/List-MoreUtils-XS-0.426/XS.xs 2017-09-27 16:10:33.000000000 +0200 @@ -90,7 +90,7 @@ /* * Perl < 5.18 had some kind of different SvIV_please_nomg */ -#if PERL_VERSION < 18 +#if PERL_VERSION_LE(5,18,0) #undef SvIV_please_nomg # define SvIV_please_nomg(sv) \ (!SvIOKp(sv) && (SvNOK(sv) || SvPOK(sv)) \ @@ -233,7 +233,7 @@ #ifndef PadARRAY typedef AV PADNAMELIST; typedef SV PADNAME; -# if PERL_VERSION < 8 || (PERL_VERSION == 8 && !PERL_SUBVERSION) +# if PERL_VERSION_LE(5,8,0) typedef AV PADLIST; typedef AV PAD; # endif @@ -248,12 +248,6 @@ # define PadnameOUTER(pn) !!SvFAKE(pn) # define PadnamePV(pn) (SvPOKp(pn) ? SvPVX(pn) : NULL) #endif -#ifndef PadnameSV -# define PadnameSV(pn) pn -#endif -#ifndef PadnameFLAGS -# define PadnameFLAGS(pn) (SvFLAGS(PadnameSV(pn))) -#endif static int in_pad (pTHX_ SV *code) @@ -279,8 +273,10 @@ continue; # endif - if (!(PadnameFLAGS(name_sv)) & SVf_OK) +#if PERL_VERSION_LT(5,21,7) + if (!SvOK(name_sv)) continue; +#endif if (strEQ(name_str, "$a") || strEQ(name_str, "$b")) return 1; @@ -2114,7 +2110,8 @@ if(seen_undef == max) { - EXTEND(SP, ++count); + ++count; + EXTEND(SP, count); ST(count-1) = &PL_sv_undef; } @@ -2310,7 +2307,7 @@ idx = SvIV(*PL_stack_sp); if (UNLIKELY(idx < 0 && (idx += (AvFILLp(tmp)+1)) < 0)) - croak("Modification of non-creatable array value attempted, subscript %ld", idx); + croak("Modification of non-creatable array value attempted, subscript %" IVdf, idx); if(UNLIKELY(NULL == (inner = av_fetch(tmp, idx, FALSE)))) { diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/List-MoreUtils-XS-0.423/inc/Config/AutoConf/LMU.pm new/List-MoreUtils-XS-0.426/inc/Config/AutoConf/LMU.pm --- old/List-MoreUtils-XS-0.423/inc/Config/AutoConf/LMU.pm 2017-08-18 12:41:12.000000000 +0200 +++ new/List-MoreUtils-XS-0.426/inc/Config/AutoConf/LMU.pm 2017-09-27 15:21:51.000000000 +0200 @@ -71,6 +71,7 @@ my $self = shift->_get_instance(); $self->check_produce_loadable_xs_build() or die "Can't produce loadable XS module"; + $self->check_default_headers(); $self->check_all_headers(qw(time.h sys/time.h)); $self->check_funcs([qw(time)]); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/List-MoreUtils-XS-0.423/lib/List/MoreUtils/XS.pm new/List-MoreUtils-XS-0.426/lib/List/MoreUtils/XS.pm --- old/List-MoreUtils-XS-0.423/lib/List/MoreUtils/XS.pm 2017-08-19 08:55:42.000000000 +0200 +++ new/List-MoreUtils-XS-0.426/lib/List/MoreUtils/XS.pm 2017-10-02 16:15:31.000000000 +0200 @@ -7,7 +7,7 @@ use vars qw{$VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS}; -$VERSION = '0.423'; +$VERSION = '0.426'; @EXPORT = (); @EXPORT_OK = qw(any all none notall one diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/List-MoreUtils-XS-0.423/t/inline/arrayify.pm new/List-MoreUtils-XS-0.426/t/inline/arrayify.pm --- old/List-MoreUtils-XS-0.423/t/inline/arrayify.pm 2017-07-28 16:25:25.000000000 +0200 +++ new/List-MoreUtils-XS-0.426/t/inline/arrayify.pm 2017-09-27 15:29:30.000000000 +0200 @@ -19,6 +19,21 @@ SCOPE: { + # typical structure when parsing XML using XML::Hash::XS + my %src = ( + root => { + foo_list => {foo_elem => {attr => 42}}, + bar_list => {bar_elem => [{hummel => 2}, {hummel => 3}, {hummel => 5}]} + } + ); + my @foo_elems = arrayify $src{root}->{foo_list}->{foo_elem}; + is_deeply(\@foo_elems, [{attr => 42}], "arrayified struct with one element"); + my @bar_elems = arrayify $src{root}->{bar_list}->{bar_elem}; + is_deeply(\@bar_elems, [{hummel => 2}, {hummel => 3}, {hummel => 5}], "arrayified struct with three elements"); +} + +SCOPE: +{ my @in; tie @in, "Tie::StdArray"; @in = (1 .. 4, [5 .. 7], 8 .. 11, [[12 .. 17]]); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/List-MoreUtils-XS-0.423/t/xs/arrayify.t new/List-MoreUtils-XS-0.426/t/xs/arrayify.t --- old/List-MoreUtils-XS-0.423/t/xs/arrayify.t 2017-08-19 08:56:09.000000000 +0200 +++ new/List-MoreUtils-XS-0.426/t/xs/arrayify.t 2017-10-02 16:21:20.000000000 +0200 @@ -26,6 +26,21 @@ SCOPE: { + # typical structure when parsing XML using XML::Hash::XS + my %src = ( + root => { + foo_list => {foo_elem => {attr => 42}}, + bar_list => {bar_elem => [{hummel => 2}, {hummel => 3}, {hummel => 5}]} + } + ); + my @foo_elems = arrayify $src{root}->{foo_list}->{foo_elem}; + is_deeply(\@foo_elems, [{attr => 42}], "arrayified struct with one element"); + my @bar_elems = arrayify $src{root}->{bar_list}->{bar_elem}; + is_deeply(\@bar_elems, [{hummel => 2}, {hummel => 3}, {hummel => 5}], "arrayified struct with three elements"); +} + +SCOPE: +{ my @in; tie @in, "Tie::StdArray"; @in = (1 .. 4, [5 .. 7], 8 .. 11, [[12 .. 17]]); ++++++ cpanspec.yml ++++++ --- /var/tmp/diff_new_pack.fkYjtm/_old 2017-10-11 22:55:19.284769579 +0200 +++ /var/tmp/diff_new_pack.fkYjtm/_new 2017-10-11 22:55:19.284769579 +0200 @@ -1,30 +1,2 @@ --- -#description_paragraphs: 3 -#description: |- -# override description from CPAN -#summary: override summary from CPAN -#no_testing: broken upstream -#sources: -# - source1 -# - source2 -#patches: -# foo.patch: -p1 -# bar.patch: -format.patch: -p1 -undefined.patch: -p1 -#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_build: |- -# rm unused.files -#post_install: |- -# sed on %{name}.files license: (Artistic-1.0 or GPL-1.0+) and Apache-2.0 -#skip_noarch: 1 -#custom_build: |- -#./Build build flags=%{?_smp_mflags} --myflag -#custom_test: |- -#startserver && make test -#ignore_requires: Bizarre::Module