diff options
| author | Karl Williamson <public@khwilliamson.com> | 2011-07-01 10:00:50 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2011-07-03 14:05:49 -0600 |
| commit | f4c2a127695c97f0d85d468a0cc4747762c25841 (patch) | |
| tree | 58efdc5183a188febc4acedcdd5211b355a35119 /lib | |
| parent | 6b0079b59681c2f6c449f7a29a0fbc19f21b002f (diff) | |
| download | perl-f4c2a127695c97f0d85d468a0cc4747762c25841.tar.gz | |
mktables: Move code
This code block can come before the other one, and a future commit
will need it to be moved there.
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/unicore/mktables | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/lib/unicore/mktables b/lib/unicore/mktables index 2e1263219e..5cf674a2eb 100644 --- a/lib/unicore/mktables +++ b/lib/unicore/mktables @@ -11187,14 +11187,15 @@ sub finish_Unicode() { # missing code points. if (defined (my $default_map = $property->default_map)) { + # Make sure there is a match table for the default + my $default_table; + if (! defined ($default_table = $property->table($default_map))) { + $default_table = $property->add_match_table($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)) { - $property->add_match_table($default_map); - } } # Have all we need to populate the match tables. |