diff options
| author | Karl Williamson <public@khwilliamson.com> | 2011-12-27 10:51:58 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2011-12-29 21:11:50 -0700 |
| commit | 09f8d0ac0e6e862cff22f50c3b2cfc4975a4d3b6 (patch) | |
| tree | a8e956d21097481107472311181b2143b493ae7b /lib | |
| parent | 2656178466102ca7279f95992c941b6ce42fe923 (diff) | |
| download | perl-09f8d0ac0e6e862cff22f50c3b2cfc4975a4d3b6.tar.gz | |
mktables: Accommodate new @missings in Unicode 6.1
The Unicode 6.1 release candidate includes a new @missings line for the
ScriptExtenstions.txt file which we need to know about and deal with.
Diffstat (limited to 'lib')
| -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 ]; |