summaryrefslogtreecommitdiff
path: root/regen/mk_invlists.pl
diff options
context:
space:
mode:
authorKarl Williamson <khw@cpan.org>2018-12-22 18:36:27 -0700
committerKarl Williamson <khw@cpan.org>2018-12-26 12:50:38 -0700
commita57a2641016045bced6ece77dfb390e92112b375 (patch)
tree2dbad2b56c12c9b9652c4949de71c430f25846b2 /regen/mk_invlists.pl
parent3fc40adfddb1363d7b9728e4778a02ac0d0c1a76 (diff)
downloadperl-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.pl17
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