diff options
author | Karl Williamson <khw@cpan.org> | 2018-12-22 18:36:27 -0700 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2018-12-26 12:50:38 -0700 |
commit | a57a2641016045bced6ece77dfb390e92112b375 (patch) | |
tree | 2dbad2b56c12c9b9652c4949de71c430f25846b2 /regen/mk_invlists.pl | |
parent | 3fc40adfddb1363d7b9728e4778a02ac0d0c1a76 (diff) | |
download | perl-a57a2641016045bced6ece77dfb390e92112b375.tar.gz |
regen/mk_invlists.pl: Rmv outdated code
Before the GCB property handling got more complicated, it was possible
to represent its vagaries with a boolean table on early Unicode
releases. Now there are more complicated rules, and even though early
releases only use 0 or 1, the rules exist and lead to compilation
errors. Just remove the special handling, and let the table be U8.
Diffstat (limited to 'regen/mk_invlists.pl')
-rw-r--r-- | regen/mk_invlists.pl | 17 |
1 files changed, 2 insertions, 15 deletions
diff --git a/regen/mk_invlists.pl b/regen/mk_invlists.pl index 2587f0e0d4..c5c62d804c 100644 --- a/regen/mk_invlists.pl +++ b/regen/mk_invlists.pl @@ -1131,21 +1131,8 @@ sub output_table_common { my $column_width = 2; # We currently allow 2 digits for the number - # If the maximum value in the table is 1, it can be a bool. (Being above - # a U8 is not currently handled - my $max_element = 0; - for my $i (0 .. $size - 1) { - for my $j (0 .. $size - 1) { - next if $max_element >= $table_ref->[$i][$j]; - $max_element = $table_ref->[$i][$j]; - } - } - die "Need wider table column width given '$max_element" - if length $max_element > $column_width; - - my $table_type = ($max_element == 1) - ? 'bool' - : 'U8'; + # Being above a U8 is not currently handled + my $table_type = 'U8'; # If a name is longer than the width set aside for a column, its column # needs to have increased spacing so that the name doesn't get truncated |