From e640fb4fe5db26ebfdc183df41c9c695bbdb910e Mon Sep 17 00:00:00 2001 From: Jitka Plesnikova <jples...@redhat.com> Date: Wed, 11 May 2016 17:58:26 +0200 Subject: 2.56 bump in order to dual-live with perl 5.24
--- Storable-2.53-Upgrade-to-2.56.patch | 99 +++++++++++++++++++++++++++++++++++++ perl-Storable.spec | 12 +++-- 2 files changed, 108 insertions(+), 3 deletions(-) create mode 100644 Storable-2.53-Upgrade-to-2.56.patch diff --git a/Storable-2.53-Upgrade-to-2.56.patch b/Storable-2.53-Upgrade-to-2.56.patch new file mode 100644 index 0000000..5ab0425 --- /dev/null +++ b/Storable-2.53-Upgrade-to-2.56.patch @@ -0,0 +1,99 @@ +diff --git a/Storable.pm b/Storable.pm +index 9d8b621..c8f6db1 100644 +--- a/Storable.pm ++++ b/Storable.pm +@@ -22,7 +22,7 @@ package Storable; @ISA = qw(Exporter); + + use vars qw($canonical $forgive_me $VERSION); + +-$VERSION = '2.53'; ++$VERSION = '2.56'; + + BEGIN { + if (eval { local $SIG{__DIE__}; require Log::Agent; 1 }) { +@@ -979,43 +979,43 @@ such. + + Here are some code samples showing a possible usage of Storable: + +- use Storable qw(store retrieve freeze thaw dclone); ++ use Storable qw(store retrieve freeze thaw dclone); + +- %color = ('Blue' => 0.1, 'Red' => 0.8, 'Black' => 0, 'White' => 1); ++ %color = ('Blue' => 0.1, 'Red' => 0.8, 'Black' => 0, 'White' => 1); + +- store(\%color, 'mycolors') or die "Can't store %a in mycolors!\n"; ++ store(\%color, 'mycolors') or die "Can't store %a in mycolors!\n"; + +- $colref = retrieve('mycolors'); +- die "Unable to retrieve from mycolors!\n" unless defined $colref; +- printf "Blue is still %lf\n", $colref->{'Blue'}; ++ $colref = retrieve('mycolors'); ++ die "Unable to retrieve from mycolors!\n" unless defined $colref; ++ printf "Blue is still %lf\n", $colref->{'Blue'}; + +- $colref2 = dclone(\%color); ++ $colref2 = dclone(\%color); + +- $str = freeze(\%color); +- printf "Serialization of %%color is %d bytes long.\n", length($str); +- $colref3 = thaw($str); ++ $str = freeze(\%color); ++ printf "Serialization of %%color is %d bytes long.\n", length($str); ++ $colref3 = thaw($str); + + which prints (on my machine): + +- Blue is still 0.100000 +- Serialization of %color is 102 bytes long. ++ Blue is still 0.100000 ++ Serialization of %color is 102 bytes long. + + Serialization of CODE references and deserialization in a safe + compartment: + + =for example begin + +- use Storable qw(freeze thaw); +- use Safe; +- use strict; +- my $safe = new Safe; ++ use Storable qw(freeze thaw); ++ use Safe; ++ use strict; ++ my $safe = new Safe; + # because of opcodes used in "use strict": +- $safe->permit(qw(:default require)); +- local $Storable::Deparse = 1; +- local $Storable::Eval = sub { $safe->reval($_[0]) }; +- my $serialized = freeze(sub { 42 }); +- my $code = thaw($serialized); +- $code->() == 42; ++ $safe->permit(qw(:default require)); ++ local $Storable::Deparse = 1; ++ local $Storable::Eval = sub { $safe->reval($_[0]) }; ++ my $serialized = freeze(sub { 42 }); ++ my $code = thaw($serialized); ++ $code->() == 42; + + =for example end + +diff --git a/Storable.xs b/Storable.xs +index e7d0329..83cd001 100644 +--- a/Storable.xs ++++ b/Storable.xs +@@ -1667,6 +1667,7 @@ static void free_context(pTHX_ stcxt_t *cxt) + + ASSERT(!cxt->s_dirty, ("clean context")); + ASSERT(prev, ("not freeing root context")); ++ assert(prev); + + SvREFCNT_dec(cxt->my_sv); + SET_STCXT(prev); +@@ -6677,6 +6678,7 @@ SV * obj + ALIAS: + net_mstore = 1 + CODE: ++ RETVAL = &PL_sv_undef; + if (!do_store(aTHX_ (PerlIO*) 0, obj, 0, ix, &RETVAL)) + RETVAL = &PL_sv_undef; + OUTPUT: diff --git a/perl-Storable.spec b/perl-Storable.spec index 7ba6d91..d8f2af6 100644 --- a/perl-Storable.spec +++ b/perl-Storable.spec @@ -2,15 +2,17 @@ Name: perl-Storable Epoch: 1 -Version: 2.53 -Release: 347%{?dist} +Version: 2.56 +Release: 1%{?dist} Summary: Persistence for Perl data structures License: GPL+ or Artistic Group: Development/Libraries URL: http://search.cpan.org/dist/Storable/ Source0: http://www.cpan.org/authors/id/A/AM/AMS/Storable-%{base_version}.tar.gz -# Unbundled form perl 5.21.11 +# Unbundled from perl 5.21.11 Patch0: Storable-2.51-Upgrade-to-2.53.patch +# Unbundled from perl 5.24.0 +Patch1: Storable-2.53-Upgrade-to-2.56.patch BuildRequires: perl BuildRequires: perl(Config) BuildRequires: perl(ExtUtils::MakeMaker) @@ -61,6 +63,7 @@ can be conveniently stored to disk and retrieved at a later time. %prep %setup -q -n Storable-%{base_version} %patch0 -p1 +%patch1 -p1 # Remove bundled modules rm -rf t/compat sed -i -e '/^t\/compat\//d' MANIFEST @@ -87,6 +90,9 @@ make test %{_mandir}/man3/* %changelog +* Wed May 11 2016 Jitka Plesnikova <jples...@redhat.com> - 2.56-1 +- 2.56 bump in order to dual-live with perl 5.24 + * Thu Feb 04 2016 Fedora Release Engineering <rel...@fedoraproject.org> - 1:2.53-347 - Rebuilt for https://fedoraproject.org/wiki/Fedora_24_Mass_Rebuild -- cgit v0.12 http://pkgs.fedoraproject.org/cgit/perl-Storable.git/commit/?h=master&id=e640fb4fe5db26ebfdc183df41c9c695bbdb910e -- Fedora Extras Perl SIG http://www.fedoraproject.org/wiki/Extras/SIGs/Perl perl-devel mailing list perl-devel@lists.fedoraproject.org http://lists.fedoraproject.org/admin/lists/perl-devel@lists.fedoraproject.org