diff options
author | Karl Williamson <public@khwilliamson.com> | 2012-02-13 09:47:09 -0700 |
---|---|---|
committer | Karl Williamson <public@khwilliamson.com> | 2012-02-13 10:42:19 -0700 |
commit | 1722e378f962c2c0bd9735fe63e69fa95671f5e2 (patch) | |
tree | 7eaadb8b710b6ce87444aea4a8099d2166a2db06 /lib | |
parent | 870598ae6a928eaf25c34e21dd00e22534e5431b (diff) | |
download | perl-1722e378f962c2c0bd9735fe63e69fa95671f5e2.tar.gz |
mktables: Don't add exact duplicate to tables
This was a bug in the case where there can be multiple entries in a
table for a single code point. But there only can be one identical
entry.
Diffstat (limited to 'lib')
-rw-r--r-- | lib/unicore/mktables | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lib/unicore/mktables b/lib/unicore/mktables index 39935a4f31..64f7522533 100644 --- a/lib/unicore/mktables +++ b/lib/unicore/mktables @@ -3677,9 +3677,12 @@ sub trace { return main::trace(@_); } } # If to place this new record after, move to beyond all existing - # ones. + # ones; but don't add this one if identical to any of them, as it + # isn't really a multiple if ($replace == $MULTIPLE_AFTER) { while ($i < @$r && $r->[$i]->start == $start) { + return if $value eq $r->[$i]->value + && $type eq $r->[$i]->type; $i++; } } |