Hello community, here is the log from the commit of package perl-Data-Util for openSUSE:Factory checked in at 2015-08-29 20:04:47 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Data-Util (Old) and /work/SRC/openSUSE:Factory/.perl-Data-Util.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Data-Util" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Data-Util/perl-Data-Util.changes 2014-03-09 18:37:30.000000000 +0100 +++ /work/SRC/openSUSE:Factory/.perl-Data-Util.new/perl-Data-Util.changes 2015-08-29 20:04:48.000000000 +0200 @@ -1,0 +2,6 @@ +Thu Aug 27 13:51:06 UTC 2015 - [email protected] + +- added perl522.patch: patch from rt.cpan.org, #99097, to get + module built with perl-5.22 + +------------------------------------------------------------------- New: ---- perl522.patch ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Data-Util.spec ++++++ --- /var/tmp/diff_new_pack.8zsPMM/_old 2015-08-29 20:04:49.000000000 +0200 +++ /var/tmp/diff_new_pack.8zsPMM/_new 2015-08-29 20:04:49.000000000 +0200 @@ -25,6 +25,7 @@ Group: Development/Libraries/Perl Url: http://search.cpan.org/dist/Data-Util/ Source: http://www.cpan.org/authors/id/G/GF/GFUJI/%{cpan_name}-%{version}.tar.gz +Patch0: perl522.patch BuildRoot: %{_tmppath}/%{name}-%{version}-build BuildRequires: perl BuildRequires: perl-macros @@ -47,6 +48,7 @@ %prep %setup -q -n %{cpan_name}-%{version} find . -type f -print0 | xargs -0 chmod 644 +%patch0 -p1 %build %{__perl} Makefile.PL INSTALLDIRS=vendor OPTIMIZE="%{optflags}" ++++++ perl522.patch ++++++ diff -rup Data-Util-0.63-eMJzy2-orig/DataUtil.xs Data-Util-0.63-eMJzy2/DataUtil.xs --- Data-Util-0.63-eMJzy2-orig/DataUtil.xs 2013-04-03 00:06:08.000000000 -0700 +++ Data-Util-0.63-eMJzy2/DataUtil.xs 2014-09-23 18:48:48.000000000 -0700 @@ -674,7 +674,14 @@ my_uninstall_sub(pTHX_ HV* const stash, CV* code; if(!isGV(gv)){ /* a subroutine stub or special constant*/ - if(SvROK((SV*)gv) && ckWARN(WARN_MISC)){ + /* or perhaps a sub ref */ + if(SvROK((SV*)gv)) { + if(SvTYPE(SvRV(gv)) == SVt_PVCV) { + if( specified_code && + specified_code != (CV*)SvRV(gv) ) + return; + } + else if(ckWARN(WARN_MISC)) Perl_warner(aTHX_ packWARN(WARN_MISC), "Constant subroutine %s uninstalled", name); } (void)hv_delete(stash, name, namelen, G_DISCARD); diff -rup Data-Util-0.63-eMJzy2-orig/lib/Data/Util/PurePerl.pm Data-Util-0.63-eMJzy2/lib/Data/Util/PurePerl.pm --- Data-Util-0.63-eMJzy2-orig/lib/Data/Util/PurePerl.pm 2012-10-20 04:54:44.000000000 -0700 +++ Data-Util-0.63-eMJzy2/lib/Data/Util/PurePerl.pm 2014-09-23 18:44:36.000000000 -0700 @@ -246,8 +246,16 @@ sub uninstall_subroutine { my $glob = $stash->{$name}; if(ref(\$glob) ne 'GLOB'){ - if(ref $glob){ + if(ref $glob) { + if(Scalar::Util::reftype $glob eq 'CODE'){ + if(defined $specified_code && + $specified_code != $glob) { + next; + } + } + else { warnings::warnif(misc => "Constant subroutine $name uninstalled"); + } } delete $stash->{$name}; next;
