diff options
| author | Karl Williamson <khw@cpan.org> | 2019-08-25 18:49:02 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2019-08-26 09:54:22 -0600 |
| commit | 5c0563e751095d7a7aad52c9fc3e203cbeeb4871 (patch) | |
| tree | 00cb79b9608729c611543637c4fa3cb8baeb97b3 /regen/mk_invlists.pl | |
| parent | f4d6df297dfa1ce0ef62433181961bd7e80b2497 (diff) | |
| download | perl-5c0563e751095d7a7aad52c9fc3e203cbeeb4871.tar.gz | |
regen/mk_invlists.pl: Fix /i rules for non-ASCII machines
Two variable weren't getting initialized properly in one code path, with
the result that the case folding tables were pretty much garbage, but
not on ASCII platforms.
Diffstat (limited to 'regen/mk_invlists.pl')
| -rw-r--r-- | regen/mk_invlists.pl | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/regen/mk_invlists.pl b/regen/mk_invlists.pl index 42e391bf2e..6853a64272 100644 --- a/regen/mk_invlists.pl +++ b/regen/mk_invlists.pl @@ -2557,10 +2557,10 @@ foreach my $prop (@props) { my @invlist; my @invmap; - my $map_format; + my $map_format = 0;; my $map_default; - my $maps_to_code_point; - my $to_adjust; + my $maps_to_code_point = 0; + my $to_adjust = 0; my $same_in_all_code_pages; if ($is_local_sub) { my @return = eval $lookup_prop; @@ -2601,12 +2601,15 @@ foreach my $prop (@props) { @invmap = @$map_ref; $map_format = $format; $map_default = $default; - $maps_to_code_point = $map_format =~ / a ($ | [^r] ) /x; - $to_adjust = $map_format =~ /a/; } } } + if ($map_format) { + $maps_to_code_point = $map_format =~ / a ($ | [^r] ) /x; + $to_adjust = $map_format =~ /a/; + } + # Re-order the Unicode code points to native ones for this platform. # This is only needed for code points below 256, because native code # points are only in that range. For inversion maps of properties |