Author: mcbrown
Date: 2008-07-07 12:58:50 +0200 (Mon, 07 Jul 2008)
New Revision: 11082
Log:
Removing debugging
Modified:
trunk/tools/fixup-multibyte.pl
Modified: trunk/tools/fixup-multibyte.pl
===================================================================
--- trunk/tools/fixup-multibyte.pl 2008-07-07 10:35:20 UTC (rev 11081)
+++ trunk/tools/fixup-multibyte.pl 2008-07-07 10:58:50 UTC (rev 11082)
Changed blocks: 2, Lines Added: 0, Lines Deleted: 7; 1110 bytes
@@ -56,7 +56,6 @@
my (@matches) = (m{(\X)}g);
foreach my $match (@matches)
{
-# print "Char num is ",ord($match),"\n";
my $charnum = ord($match);
if (($charnum >= 255) &&
($charnum != hex('2022')) &&
@@ -69,21 +68,15 @@
($charnum != hex('2014'))
)
{
-
- print "Found unicode $match: ",ord($match)," within\n";
- $i++;
-# exit if ($i > 20);
$unique->{$match} = 1;
}
}
}
-# exit;
foreach my $unique (keys %{$unique})
{
my $match = quotemeta($unique);
$_ =~ s{$match}{<fo:inline font-family="ArialUnicode">$unique</fo:inline>}g;
-# print STDERR "Replacing CJK character $unique\n";
}
print $ofh $_;
| Thread |
|---|
| • svn commit - mysqldoc@docsrva: r11082 - trunk/tools | mcbrown | 7 Jul |