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
