From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 11 Feb 2002 23:38:28 +0000 (+0000)
Subject: EBCDIC: pack U is no more equal to concat of \xHHs.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9caa78f3ec6917fadd3faa86111398c2f6153e29;p=p5sagit%2Fp5-mst-13.2.git

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