From 56d3e32d092cbfd472663b5f2168553262c8df58 Mon Sep 17 00:00:00 2001
From: Radu Greab <radu@netsoft.ro>
Date: Sat, 8 Jun 2002 03:49:02 +0300
Subject: 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
---
 ext/Storable/t/recurse.t | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'ext')

diff --git a/ext/Storable/t/recurse.t b/ext/Storable/t/recurse.t
index 4543e37918..d2da630a89 100644
--- 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;
 
-- 
cgit v1.2.1