diff options
| author | Karl Williamson <khw@cpan.org> | 2015-08-20 10:48:36 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2015-08-20 12:48:20 -0600 |
| commit | a39459e754d2246aece7c023c999ba1368e1edaf (patch) | |
| tree | 6fd0122b72152dd25019d6432cbaff530f2a17f0 /lib/unicore | |
| parent | 53adf6a2e6002345048c5137b16445f8dbf4bb81 (diff) | |
| download | perl-a39459e754d2246aece7c023c999ba1368e1edaf.tar.gz | |
mktables: Fix up property calc for early Unicodes
The Default_Ignorable_Code_Point property is applicable to unassigned
code points, so shouldn't restrict our calculated value to assigned.
(We calculate what the property would be when run on Unicode releases
that haven't defined it yet.)
Diffstat (limited to 'lib/unicore')
| -rw-r--r-- | lib/unicore/mktables | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lib/unicore/mktables b/lib/unicore/mktables index 18a8186804..1b0d469c07 100644 --- a/lib/unicore/mktables +++ b/lib/unicore/mktables @@ -14700,6 +14700,9 @@ END if ($v_version ge v2.0) { $quotemeta += $gc->table('Cf') + $gc->table('Cs'); + + # These are above the Unicode version 1 max + $quotemeta->add_range(0xE0000, 0xE0FFF); } $quotemeta += $gc->table('Cc') - $Space; @@ -14709,7 +14712,7 @@ END 0xFFF0 .. 0xFFFB, 0xE0000 .. 0xE0FFF, ]); - $quotemeta += $temp & $Assigned; + $quotemeta += $temp; } my $nchar = $perl->add_match_table('_Perl_Nchar', |