From: Nicholas Clark <nick@ccl4.org>
Date: Fri, 3 May 2002 21:49:04 +0000 (+0100)
Subject: Re: perl@16307
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=70a63e5f3c7f94ba3250f14cfab6845bafe96a42;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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