This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
mktables: remove wrong extra blank from output
authorKarl Williamson <khw@khw-desktop.(none)>
Sun, 11 Jul 2010 18:13:49 +0000 (12:13 -0600)
committerKarl Williamson <khw@khw-desktop.(none)>
Tue, 13 Jul 2010 23:13:54 +0000 (17:13 -0600)
mktables creates a string for use in an algorithm that contained an
extra blank that was significant

lib/unicore/mktables

index a113114..82fb1e0 100644 (file)
@@ -5648,7 +5648,7 @@ END
             my $L = $LBase + $SIndex / $NCount;
             my $V = $VBase + ($SIndex % $NCount) / $TCount;
             my $T = $TBase + $SIndex % $TCount;
-            $name = "$HANGUL_SYLLABLE $Jamo{$L}$Jamo{$V}";
+            $name = "$HANGUL_SYLLABLE$Jamo{$L}$Jamo{$V}";
             $name .= $Jamo{$T} if $T != $TBase;
             return $name;
         }