From: Nicholas Clark <nick@ccl4.org>
Date: Thu, 10 May 2007 22:32:57 +0000 (+0000)
Subject: Work around to get Unicode tests passing.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=69de8d7df79f71970f96742185284b67d38d76c6;p=p5sagit%2Fp5-mst-13.2.git

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