EBCDIC: pack U is no more equal to concat of \xHHs.

p4raw-id: //depot/perl@14649

diff --git a/t/op/each.t b/t/op/each.t
index cb4cd2d..0110da0 100755 (executable)
--- a/t/op/each.t
+++ b/t/op/each.t
@@ -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) }