summaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
authorKarl Williamson <public@khwilliamson.com>2012-02-13 09:47:09 -0700
committerKarl Williamson <public@khwilliamson.com>2012-02-13 10:42:19 -0700
commit1722e378f962c2c0bd9735fe63e69fa95671f5e2 (patch)
tree7eaadb8b710b6ce87444aea4a8099d2166a2db06 /lib
parent870598ae6a928eaf25c34e21dd00e22534e5431b (diff)
downloadperl-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/mktables5
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++;
}
}