diff options
| -rw-r--r-- | lib/unicore/mktables | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/lib/unicore/mktables b/lib/unicore/mktables index 3e3b6669ff..83c15d4727 100644 --- a/lib/unicore/mktables +++ b/lib/unicore/mktables @@ -2434,7 +2434,8 @@ END || @defaults > 2 || ($default =~ /^</ && $default !~ /^<code *point>$/i - && $default !~ /^<none>$/i)) + && $default !~ /^<none>$/i + && $default !~ /^<script>$/i)) { $self->carp_bad_line("Unrecognized \@missing line: $_. Assuming no missing entries"); } @@ -2455,6 +2456,15 @@ END elsif ($default =~ /^<code *point>$/i) { $default = $CODE_POINT; } + elsif ($default =~ /^<script>$/i) { + + # Special case this one. Currently is from + # ScriptExtensions.txt, and means for all unlisted + # code points, use their Script property values. + # For the code points not listed in that file, the + # default value is 'Unknown'. + $default = "Unknown"; + } # Store them as a sub-arrays with both components. push @{$missings{$addr}}, [ $default, $property ]; |