tweak to Serialize -- do it even when dcloneing
David Kamholz [Tue, 7 Feb 2006 19:31:35 +0000 (19:31 +0000)]
lib/DBIx/Class/Serialize.pm

index 86e3d2f..345b99c 100644 (file)
@@ -4,7 +4,7 @@ use Storable qw/freeze thaw/;
 
 sub STORABLE_freeze {
     my ($self,$cloning) = @_;
-    return if $cloning;
+    #return if $cloning;
     my $to_serialize = { %$self };
     delete $to_serialize->{result_source};
     return (freeze($to_serialize));