[perl #68108] : also fix if/else constant folding

[p5sagit/p5-mst-13.2.git] / t / op / chr.t

diff --git a/t/op/chr.t b/t/op/chr.t
index 056f11a..5ac453f 100644 (file)
--- a/t/op/chr.t
+++ b/t/op/chr.t
@@ -37,7 +37,7 @@ SKIP: {
 
 sub hexes {
     no warnings 'utf8'; # avoid surrogate and beyond Unicode warnings
-    join(" ",map{sprintf"%02x",$_}unpack("C*",chr($_[0])));
+    join(" ",unpack "U0 (H2)*", chr $_[0]);
 }
 
 # The following code points are some interesting steps in UTF-8.