Work around to get Unicode tests passing.

p4raw-id: //depot/perl@31198

diff --git a/ext/Unicode/Normalize/mkheader b/ext/Unicode/Normalize/mkheader
index 165c1c4..68b58ca 100644 (file)
--- a/ext/Unicode/Normalize/mkheader
+++ b/ext/Unicode/Normalize/mkheader
@@ -216,7 +216,7 @@ sub _pack_U {
 
 sub _U_stringify {
     sprintf '"%s"', join '',
-       map sprintf("\\x%02x", $_), unpack 'C*', _pack_U(@_);
+       map sprintf("\\x%02x", $_), unpack 'U0C*', _pack_U(@_);
 }
 
 foreach my $hash (\%Canon, \%Compat) {