From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 23 Mar 2002 17:15:15 +0000 (+0000)
Subject: EBCDIC: the sorting order is different under
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=20b5b8d0e20c19318eff308529643927999e830c;p=p5sagit%2Fp5-mst-13.2.git

EBCDIC: the sorting order is different under
byte-EBCDIC and Unicode.

p4raw-id: //depot/perl@15441
---

diff --git a/t/op/utfhash.t b/t/op/utfhash.t
index a955f28..54f77bb 100644
--- a/t/op/utfhash.t
+++ b/t/op/utfhash.t
@@ -43,14 +43,14 @@ foreach my $a ("\x7f","\xff")
  }
 
 # Check we have not got an spurious extra keys
-is(join('',sort keys %hash8),"\x7f\xff");
-is(join('',sort keys %hashu),"\x7f\xff\x{1ff}");
+is(join('',sort { ord $a <=> ord $b } keys %hash8),"\x7f\xff");
+is(join('',sort { ord $a <=> ord $b } keys %hashu),"\x7f\xff\x{1ff}");
 
 # Now add a utf8 key to the 8-bit hash
 $hash8{chr(0x1ff)} = 0x1ff;
 
 # Check we have not got an spurious extra keys
-is(join('',sort keys %hash8),"\x7f\xff\x{1ff}");
+is(join('',sort { ord $a <=> ord $b } keys %hash8),"\x7f\xff\x{1ff}");
 
 foreach my $a ("\x7f","\xff","\x{1ff}")
  {