Encoding neutral unpack

[p5sagit/p5-mst-13.2.git] / lib / charnames.t

diff --git a/lib/charnames.t b/lib/charnames.t
index 49917c5..c53f54a 100644 (file)
--- a/lib/charnames.t
+++ b/lib/charnames.t
@@ -61,7 +61,7 @@ else { # EBCDIC where UTF-EBCDIC may be used (this may be 1047 specific since
 }
 
 sub to_bytes {
-    pack"a*", shift;
+    unpack"U0a*", shift;
 }
 
 {