[svn:dbi] r15585 - dbi/trunk/lib/DBI/Gofer/Serializer

[timbo]

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});