EBCDIC: pack U is no more equal to concat of \xHHs.
Jarkko Hietaniemi [Mon, 11 Feb 2002 23:38:28 +0000 (23:38 +0000)]
p4raw-id: //depot/perl@14649

t/op/each.t

index cb4cd2d..0110da0 100755 (executable)
@@ -163,7 +163,7 @@ ok ($ol > 3, "check encoding on EBCDIC");
 %u = ($d => "downgrade");
 for (keys %u) {
     ok (length == 3, "check length"); 
-    is ($_, "\xe3\x81\xAF", "check value");
+    is ($_, pack("U*", 0xe3, 0x81, 0xAF), "check value");
 }
 {
     { use bytes; ok (bytes::length($d) == $ol) }