Fixed in r15585. Release to follow.
FYI the diff was:
--- lib/DBI/Gofer/Serializer/Storable.pm (revision 15575)
+++ lib/DBI/Gofer/Serializer/Storable.pm (working copy)
@@ -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});
I imagine that, since it's "just a cache", I reasoned that the cost of canonicalization wasn't worth it. Up until now I was right.