diff options
| author | Karl Williamson <khw@khw-desktop.(none)> | 2010-07-11 12:13:49 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@khw-desktop.(none)> | 2010-07-13 17:13:54 -0600 |
| commit | 03e1aa512f274a6aaf6f318b4db1fa1673fd446b (patch) | |
| tree | 3b06bdbc53250279e2531d4e9e02c8fdf5fd26e9 | |
| parent | e85f9eedae67b31e19f355584e6caecb9e642850 (diff) | |
| download | perl-03e1aa512f274a6aaf6f318b4db1fa1673fd446b.tar.gz | |
mktables: remove wrong extra blank from output
mktables creates a string for use in an algorithm that contained an
extra blank that was significant
| -rw-r--r-- | lib/unicore/mktables | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/unicore/mktables b/lib/unicore/mktables index a1131143bc..82fb1e0cea 100644 --- a/lib/unicore/mktables +++ b/lib/unicore/mktables @@ -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; } |