This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
e85f9ee
)
mktables: remove wrong extra blank from output
author
Karl Williamson
<khw@khw-desktop.(none)>
Sun, 11 Jul 2010 18:13:49 +0000
(12:13 -0600)
committer
Karl 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
patch
|
blob
|
blame
|
history
diff --git
a/lib/unicore/mktables
b/lib/unicore/mktables
index
a113114
..
82fb1e0
100644
(file)
--- 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;
}