This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
mktables: Comments only
authorKarl Williamson <public@khwilliamson.com>
Tue, 27 Dec 2011 00:38:44 +0000 (17:38 -0700)
committerKarl Williamson <public@khwilliamson.com>
Fri, 30 Dec 2011 04:11:49 +0000 (21:11 -0700)
lib/unicore/mktables

index 82207bc..4914f19 100644 (file)
@@ -3598,8 +3598,10 @@ sub trace { return main::trace(@_); }
                 return;
             }
 
-            # Don't add an exact duplicate, as it isn't really a multiple
+            # If the new code point is within a current range ...
             if ($end >= $r->[$i]->start) {
+
+                # Don't add an exact duplicate, as it isn't really a multiple
                 my $existing_value = $r->[$i]->value;
                 my $existing_type = $r->[$i]->type;
                 return if $value eq $existing_value && $type eq $existing_type;