Re: perl@16307

Message-ID: <20020503204903.GC294@Bagpuss.unfortu.net>

canonical #3 was failing under -Mutf8.

p4raw-id: //depot/perl@16384

diff --git a/ext/Storable/t/canonical.t b/ext/Storable/t/canonical.t
index e44b459..abc0dcd 100644 (file)
--- a/ext/Storable/t/canonical.t
+++ b/ext/Storable/t/canonical.t
@@ -67,7 +67,7 @@ if ($debugging) {
 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 @@ print STDERR Data::Dumper::Dumper(\%a1) if ($verbose and $gotdd);
 # 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