diff options
author | Karl Williamson <khw@cpan.org> | 2018-04-19 11:04:37 -0600 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2018-04-20 01:11:51 -0600 |
commit | d99e65da1b68f338bbb7c340e588264fe29f2ecf (patch) | |
tree | 4907adfaa16c2f2e3e0e6ca3c6ef7bf844147fd6 /regen | |
parent | 0f8eed2260a91819c08e88c3a463fa5c0ca902ea (diff) | |
download | perl-d99e65da1b68f338bbb7c340e588264fe29f2ecf.tar.gz |
regen/mk_invlists.pl: Move some code around
This is in preparation for a future commit
Diffstat (limited to 'regen')
-rw-r--r-- | regen/mk_invlists.pl | 13 |
1 files changed, 5 insertions, 8 deletions
diff --git a/regen/mk_invlists.pl b/regen/mk_invlists.pl index 31716c4d6d..7f0a4d225e 100644 --- a/regen/mk_invlists.pl +++ b/regen/mk_invlists.pl @@ -2169,8 +2169,12 @@ for my $charset (get_supported_code_pages()) { # in scalar context to differentiate my $count = prop_invlist($lookup_prop, '_perl_core_internal_ok'); + if (defined $count) { + # Short-circuit an empty inversion list. + output_invlist($prop_name, \@invlist, $charset); + next; + } die "Could not find inversion list for '$lookup_prop'" - unless defined $count; } else { @invlist = @$list_ref; @@ -2183,13 +2187,6 @@ for my $charset (get_supported_code_pages()) { } } - - # Short-circuit an empty inversion list. - if (! @invlist) { - output_invlist($prop_name, \@invlist, $charset); - next; - } - # 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 |