diff options
-rw-r--r-- | charclass_invlists.h | 2 | ||||
-rw-r--r-- | regen/mk_invlists.pl | 8 |
2 files changed, 5 insertions, 5 deletions
diff --git a/charclass_invlists.h b/charclass_invlists.h index e4967f9e58..4ab5ced3ba 100644 --- a/charclass_invlists.h +++ b/charclass_invlists.h @@ -50142,5 +50142,5 @@ static const UV XPosixXDigit_invlist[] = { /* for EBCDIC POSIX-BC */ * a17a0330e57d774343a53c019f1bc69827c2676982a1bf48e0898a76710e8877 lib/unicore/extracted/DNumType.txt * c2cb810a67cc5fb4a8d236b6c1bc6dd4d89733d8603881997e8aae2c816a3db1 lib/unicore/extracted/DNumValues.txt * 746472de66b936ac885ca6d6e68058242b4e909e3260c6317f3ec719f78f76cc lib/unicore/version - * 2b1e3d384d17ccc302500ead8c9adbce5285588305b2ecb1958e1c512b240fd7 regen/mk_invlists.pl + * abd67fc74314be8951561a7f96909e428e77107873621cd4bf5c471c4c0e73da regen/mk_invlists.pl * ex: set ro: */ diff --git a/regen/mk_invlists.pl b/regen/mk_invlists.pl index 9147baf2ca..a659f73434 100644 --- a/regen/mk_invlists.pl +++ b/regen/mk_invlists.pl @@ -86,7 +86,7 @@ sub output_invlist ($$;$) { print $out_fh "};\n"; } -sub mk_invlist_from_cp_list { +sub mk_invlist_from_sorted_cp_list { # Returns an inversion list constructed from the sorted input array of # code points @@ -132,11 +132,11 @@ for my $i (0 .. @$folds_ref - 1) { sub _Perl_Non_Final_Folds { @is_non_final_fold = sort { $a <=> $b } @is_non_final_fold; - return mk_invlist_from_cp_list(\@is_non_final_fold); + return mk_invlist_from_sorted_cp_list(\@is_non_final_fold); } sub UpperLatin1 { - return mk_invlist_from_cp_list([ 128 .. 255 ]); + return mk_invlist_from_sorted_cp_list([ 128 .. 255 ]); } output_invlist("Latin1", [ 0, 256 ]); @@ -270,7 +270,7 @@ for my $charset (get_supported_code_pages()) { # list format. Then simply prepend it to the list of the higher # code points. @latin1_list = sort { $a <=> $b } @latin1_list; - @latin1_list = mk_invlist_from_cp_list(\@latin1_list); + @latin1_list = mk_invlist_from_sorted_cp_list(\@latin1_list); unshift @invlist, @latin1_list; } |