diff options
author | Karl Williamson <khw@cpan.org> | 2018-03-31 12:04:40 -0600 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2018-03-31 15:36:46 -0600 |
commit | c125794ea7475e9f9f0833d83684c3f0acc43a2e (patch) | |
tree | ff0dee29b6efb575b7fccfdd6e68cdc2a7b0570b /regen | |
parent | 7e2c536f4ddcc582123a11467634888f92d450e1 (diff) | |
download | perl-c125794ea7475e9f9f0833d83684c3f0acc43a2e.tar.gz |
regen/mk_invlists.pl: Fix to work on early Unicode
The earliest Unicode release only had 2**16 code points. Add a test for
that so it will generate the proper tables if perl is compiled with that
Unicode
Diffstat (limited to 'regen')
-rw-r--r-- | regen/mk_invlists.pl | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/regen/mk_invlists.pl b/regen/mk_invlists.pl index e34a68e78b..64e5c3bb47 100644 --- a/regen/mk_invlists.pl +++ b/regen/mk_invlists.pl @@ -2265,7 +2265,11 @@ for my $charset (get_supported_code_pages()) { # to look at the whole of the inversion map (or at least to # above Unicode; as the maps of code points above that should # all be to the default). - my $upper_limit = ($maps_to_code_point) ? 0x10FFFF : 256; + my $upper_limit = (! $maps_to_code_point) + ? 256 + : (Unicode::UCD::UnicodeVersion() eq '1.1.5') + ? 0xFFFF + : 0x10FFFF; my %mapped_lists; # A hash whose keys are the buckets. while (@invlist) { |