Change 16384 by jhi@alpha on 2002/05/03 21:00:27
Subject: Re: perl@16307
From: Nicholas Clark <[EMAIL PROTECTED]>
Date: Fri, 3 May 2002 21:49:04 +0100
Message-ID: <[EMAIL PROTECTED]>
canonical #3 was failing under -Mutf8.
Affected files ...
.... //depot/perl/ext/Storable/t/canonical.t#3 edit
Differences ...
==== //depot/perl/ext/Storable/t/canonical.t#3 (text) ====
Index: perl/ext/Storable/t/canonical.t
--- perl/ext/Storable/t/canonical.t.~1~ Fri May 3 15:15:05 2002
+++ perl/ext/Storable/t/canonical.t Fri May 3 15:15:05 2002
@@ -67,7 +67,7 @@
for (my $i = 0; $i < $hashsize; $i++) {
my($k) = int(rand(1_000_000));
$k = MD5->hexhash($k) if $gotmd5 and int(rand(2));
- $a1{$k} = { key => "$k", value => $i };
+ $a1{$k} = { key => "$k", "value" => $i };
# A third of the elements are references to further hashes
@@ -100,7 +100,7 @@
# Copy the hash, element by element in order of the keys
foreach $k (sort keys %a1) {
- $a2{$k} = { key => "$k", value => $a1{$k}->{value} };
+ $a2{$k} = { key => "$k", "value" => $a1{$k}->{value} };
}
# Deep clone the hash
End of Patch.
