Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
[svn:dbi] r15585 - dbi/trunk/lib/DBI/Gofer/Serializer
2 views
Skip to first unread message
ti...@cvs.perl.org
Mar 22, 2013, 4:31:22 PM3/22/13
to svn-commit-...@perl.org
Author: timbo
Date: Fri Mar 22 13:31:22 2013
New Revision: 15585
Modified:
dbi/trunk/lib/DBI/Gofer/Serializer/Storable.pm
Log:
Fixed Gofer for hash randomization in perl 5.17.10+ RT#84146
Modified: dbi/trunk/lib/DBI/Gofer/Serializer/Storable.pm
==============================================================================
--- dbi/trunk/lib/DBI/Gofer/Serializer/Storable.pm (original)
+++ dbi/trunk/lib/DBI/Gofer/Serializer/Storable.pm Fri Mar 22 13:31:22 2013
@@ -46,6 +46,7 @@
sub serialize {
my $self = shift;
local $Storable::forgive_me = 1; # for CODE refs etc
+ local $Storable::canonical = 1; # for go_cache
my $frozen = nfreeze(shift);
return $frozen unless wantarray;
return ($frozen, $self->{deserializer_class});
Date: Fri Mar 22 13:31:22 2013
New Revision: 15585
Modified:
dbi/trunk/lib/DBI/Gofer/Serializer/Storable.pm
Log:
Fixed Gofer for hash randomization in perl 5.17.10+ RT#84146
Modified: dbi/trunk/lib/DBI/Gofer/Serializer/Storable.pm
==============================================================================
--- dbi/trunk/lib/DBI/Gofer/Serializer/Storable.pm (original)
+++ dbi/trunk/lib/DBI/Gofer/Serializer/Storable.pm Fri Mar 22 13:31:22 2013
@@ -46,6 +46,7 @@
sub serialize {
my $self = shift;
local $Storable::forgive_me = 1; # for CODE refs etc
+ local $Storable::canonical = 1; # for go_cache
my $frozen = nfreeze(shift);
return $frozen unless wantarray;
return ($frozen, $self->{deserializer_class});
0 new messages