This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
mktables: Don't add exact duplicate to tables
authorKarl Williamson <public@khwilliamson.com>
Mon, 13 Feb 2012 16:47:09 +0000 (09:47 -0700)
committerKarl 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

index 39935a4..64f7522 100644 (file)
@@ -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++;
                 }
             }