Re: Major bug in Storable 2.03 with 5.6.1 (freeze & thaw hooks)
Radu Greab [Sat, 8 Jun 2002 00:49:02 +0000 (03:49 +0300)]
Message-ID: <15617.10830.557640.430565@ix.netsoft.ro>

p4raw-id: //depot/perl@17071

ext/Storable/t/recurse.t

index 4543e37..d2da630 100644 (file)
@@ -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;