Re: Major bug in Storable 2.03 with 5.6.1 (freeze & thaw hooks)

Message-ID: <15617.10830.557640.430565@ix.netsoft.ro>

p4raw-id: //depot/perl@17071

diff --git a/ext/Storable/t/recurse.t b/ext/Storable/t/recurse.t
index 4543e37..d2da630 100644 (file)
--- a/ext/Storable/t/recurse.t
+++ b/ext/Storable/t/recurse.t
@@ -140,7 +140,7 @@ my $x = freeze $real;
 ok 1, 1;
 
 my $y = thaw $x;
-ok 2, 1;
+ok 2, ref $y eq 'OBJ_REAL';
 ok 3, $y->[0] eq 'a';
 ok 4, $y->[1] == 1;