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:
870598a
)
mktables: Don't add exact duplicate to tables
author
Karl Williamson
<public@khwilliamson.com>
Mon, 13 Feb 2012 16:47:09 +0000
(09:47 -0700)
committer
Karl Williamson
<public@khwilliamson.com>
Mon, 13 Feb 2012 17:42:19 +0000
(10:42 -0700)
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.
lib/unicore/mktables
patch
|
blob
|
blame
|
history
diff --git
a/lib/unicore/mktables
b/lib/unicore/mktables
index
39935a4
..
64f7522
100644
(file)
--- 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++;
}
}