Work around to get Unicode tests passing.
authorNicholas Clark <nick@ccl4.org>
Thu, 10 May 2007 22:32:57 +0000 (22:32 +0000)
committerNicholas Clark <nick@ccl4.org>
Thu, 10 May 2007 22:32:57 +0000 (22:32 +0000)
p4raw-id: //depot/perl@31198

ext/Unicode/Normalize/mkheader

index 165c1c4..68b58ca 100644 (file)
@@ -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) {