diff options
| author | Karl Williamson <khw@cpan.org> | 2018-04-05 20:35:22 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2018-04-15 21:02:18 -0600 |
| commit | 7d2c6c240263992d62008c79c09438ef9f4a5e5e (patch) | |
| tree | 82ba83e519426edcaafa3253eb54a2b411983524 /regen | |
| parent | 03d17b6e92d9287b23a0cd0ac8b3a4119cc480f8 (diff) | |
| download | perl-7d2c6c240263992d62008c79c09438ef9f4a5e5e.tar.gz | |
regen/mk_invlists.pl: stop at 256 for latin1 lists
This changes the max of a range down from the platform's infinity to
256 when calculating things dealing with the 0-255 range. Otherwise, on
some properties, it could go 256..infinity using up all the machine's
memory.
Diffstat (limited to 'regen')
| -rw-r--r-- | regen/mk_invlists.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/regen/mk_invlists.pl b/regen/mk_invlists.pl index c9a4c8a896..fea618bf93 100644 --- a/regen/mk_invlists.pl +++ b/regen/mk_invlists.pl @@ -2228,7 +2228,7 @@ for my $charset (get_supported_code_pages()) { # To infinity. You may want to stop much much # earlier; going this high may expose perl # deficiencies with very large numbers. - : $Unicode::UCD::MAX_CP; + : 256; for my $j ($invlist[0] .. $upper) { push @latin1_list, a2n($j); } |