8
0

Accepting request 416909 from devel:languages:perl

1

OBS-URL: https://build.opensuse.org/request/show/416909
OBS-URL: https://build.opensuse.org/package/show/openSUSE:Factory/perl-Data-Util?expand=0&rev=13
This commit is contained in:
2016-11-07 11:22:08 +00:00
committed by Git OBS Bridge
6 changed files with 70 additions and 59 deletions

View File

@@ -1,3 +0,0 @@
version https://git-lfs.github.com/spec/v1
oid sha256:451e06be33799510f1220f67bb30805b93654341d41658c931fc0601a6390961
size 73438

3
Data-Util-0.65.tar.gz Normal file
View File

@@ -0,0 +1,3 @@
version https://git-lfs.github.com/spec/v1
oid sha256:538932e837edada90356207b1996225687417c86d94bdc5f418c18fcf3aed5a7
size 62451

28
cpanspec.yml Normal file
View File

@@ -0,0 +1,28 @@
---
#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:
#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: SUSE-NonFree
#skip_noarch: 1
#custom_build: |-
#./Build build flags=%{?_smp_mflags} --myflag
#custom_test: |-
#startserver && make test
#ignore_requires: Bizarre::Module

View File

@@ -1,3 +1,24 @@
-------------------------------------------------------------------
Tue Aug 2 05:14:12 UTC 2016 - coolo@suse.com
- updated to 0.65
see /usr/share/doc/packages/perl-Data-Util/Changes
0.65 2016-08-01T13:12:55Z
- Drop Perl 5.8 for maintenance
- Fix pure perl installation
-------------------------------------------------------------------
Sun Jul 24 05:13:57 UTC 2016 - coolo@suse.com
- updated to 0.64
see /usr/share/doc/packages/perl-Data-Util/Changes
0.64 2016-07-23T15:13:01Z
- Fix on perl 5.22.x or higher versions
- Minilla migrate
- remove upstream perl522.patch
------------------------------------------------------------------- -------------------------------------------------------------------
Thu Aug 27 13:51:06 UTC 2015 - hsk@imb-jena.de Thu Aug 27 13:51:06 UTC 2015 - hsk@imb-jena.de

View File

@@ -1,7 +1,7 @@
# #
# spec file for package perl-Data-Util # spec file for package perl-Data-Util
# #
# Copyright (c) 2014 SUSE LINUX Products GmbH, Nuernberg, Germany. # Copyright (c) 2016 SUSE LINUX GmbH, Nuernberg, Germany.
# #
# All modifications and additions to the file contributed by third parties # All modifications and additions to the file contributed by third parties
# remain the property of their copyright owners, unless otherwise agreed # remain the property of their copyright owners, unless otherwise agreed
@@ -17,53 +17,55 @@
Name: perl-Data-Util Name: perl-Data-Util
Version: 0.63 Version: 0.65
Release: 0 Release: 0
%define cpan_name Data-Util %define cpan_name Data-Util
Summary: A selection of utilities for data and data types Summary: Selection of Utilities for Data and Data Types
License: Artistic-1.0 or GPL-1.0+ License: Artistic-1.0 or GPL-1.0+
Group: Development/Libraries/Perl Group: Development/Libraries/Perl
Url: http://search.cpan.org/dist/Data-Util/ Url: http://search.cpan.org/dist/Data-Util/
Source: http://www.cpan.org/authors/id/G/GF/GFUJI/%{cpan_name}-%{version}.tar.gz Source0: http://www.cpan.org/authors/id/S/SY/SYOHEX/%{cpan_name}-%{version}.tar.gz
Patch0: perl522.patch Source1: cpanspec.yml
BuildRoot: %{_tmppath}/%{name}-%{version}-build BuildRoot: %{_tmppath}/%{name}-%{version}-build
BuildRequires: perl BuildRequires: perl
BuildRequires: perl-macros BuildRequires: perl-macros
BuildRequires: perl(Devel::PPPort) >= 3.19 BuildRequires: perl(Devel::PPPort) >= 3.19
BuildRequires: perl(ExtUtils::MakeMaker) >= 6.59
BuildRequires: perl(ExtUtils::ParseXS) >= 3.18 BuildRequires: perl(ExtUtils::ParseXS) >= 3.18
BuildRequires: perl(Hash::Util::FieldHash::Compat) BuildRequires: perl(Hash::Util::FieldHash::Compat)
BuildRequires: perl(Module::Build) >= 0.400500
BuildRequires: perl(Module::Build::XSUtil) >= 0.03
BuildRequires: perl(Scope::Guard) BuildRequires: perl(Scope::Guard)
BuildRequires: perl(Test::Exception) >= 0.27 BuildRequires: perl(Test::Exception) >= 0.270000
%{perl_requires} %{perl_requires}
%description %description
This module provides utility functions for data and data types, including This module provides utility functions for data and data types, including
functions for subroutines and symbol table hashes (stashes). functions for subroutines and symbol table hashes (stashes).
The implementation of this module is both Pure Perl and XS, so if you have This module makes for a pure Perl and XS implementation.
a C compiler, all the functions this module provides are really faster.
However, if you want to use the full capacity of it, we recommend you to
opt for the XS backend.
There are many benchmarks in the _DIST-DIR/benchmark/_ directory. There are many benchmarks in the _DIST-DIR/benchmark/_ directory.
%prep %prep
%setup -q -n %{cpan_name}-%{version} %setup -q -n %{cpan_name}-%{version}
find . -type f -print0 | xargs -0 chmod 644
%patch0 -p1
%build %build
%{__perl} Makefile.PL INSTALLDIRS=vendor OPTIMIZE="%{optflags}" %{__perl} Build.PL installdirs=vendor optimize="%{optflags}"
%{__make} %{?_smp_mflags} ./Build build flags=%{?_smp_mflags}
%check %check
%{__make} test ./Build test
%install %install
%perl_make_install ./Build install destdir=%{buildroot} create_packlist=0
%perl_process_packlist
%perl_gen_filelist %perl_gen_filelist
%files -f %{name}.files %files -f %{name}.files
%defattr(-,root,root,755) %defattr(-,root,root,755)
%doc Changes example README %doc Changes circle.yml example LICENSE minil.toml README.md
%changelog %changelog

View File

@@ -1,40 +0,0 @@
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;