diff options
| author | Karl Williamson <public@khwilliamson.com> | 2011-01-04 17:01:09 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2011-01-04 17:04:48 -0700 |
| commit | 1520492fd14deb1e166b389e8bb96ac74a1576c3 (patch) | |
| tree | 79e09284a956a3d4c91b7b3bf4487b08572b3dbe | |
| parent | a35d7f90a298ee9ffbe7f3151ea861cbe33eccc6 (diff) | |
| download | perl-1520492fd14deb1e166b389e8bb96ac74a1576c3.tar.gz | |
mktables: Small performance enhancement
Instead of generating a separate list of missing ranges in a table, it's
less work to use the fill-in the missing ranges feature.
| -rw-r--r-- | lib/unicore/mktables | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lib/unicore/mktables b/lib/unicore/mktables index d97b12b378..4fe86e537f 100644 --- a/lib/unicore/mktables +++ b/lib/unicore/mktables @@ -11031,9 +11031,10 @@ sub finish_Unicode() { # Add any remaining code points to the mapping, using the default for # missing code points. if (defined (my $default_map = $property->default_map)) { - foreach my $range ($property->inverse_list->ranges) { - $property->add_map($range->start, $range->end, $default_map); - } + + # This fills in any missing values with the default. + $property->add_map(0, $LAST_UNICODE_CODEPOINT, + $default_map, Replace => $NO); # Make sure there is a match table for the default if (! defined $property->table($default_map)) { |