X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fop%2Feach.t;h=0110da0af7fc1320e6fc1afd53260ce300acefd6;hb=a1824f2aba8e109cac73756dc271522cdd4a8200;hp=cb4cd2d9ab4fd50e6b1f92dde2a6522c0f101452;hpb=eb1102fcca2230364ceadea29bd8e87ee51b15fa;p=p5sagit%2Fp5-mst-13.2.git

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