regexec.c: Rename a static variable

[perl5.git] / regen / ebcdic.pl

diff --git a/regen/ebcdic.pl b/regen/ebcdic.pl
index 5e07200..42cb7aa 100644 (file)
--- a/regen/ebcdic.pl
+++ b/regen/ebcdic.pl
@@ -76,6 +76,8 @@ sub output_table ($$;$) {
     my $table_ref = shift;
     my $name = shift;
 
+    my $size = @$table_ref;
+
     # 0 => print in decimal
     # 1 => print in hex (translates code point to code point)
     # >= 2 => is a dfa table, like https://bjoern.hoehrmann.de/utf-8/decoder/dfa/
@@ -145,7 +147,7 @@ EOF
     my $TYPE = 'U8';
     $TYPE = 'U16' if grep { $_ > 255 } @$table_ref;
 
-    output_table_start $out_fh, $TYPE, $name;
+    output_table_start $out_fh, $TYPE, $name, $size;
 
     # First the headers for the columns
     print $out_fh get_column_headers($row_hdr_length, $field_width);
@@ -382,6 +384,9 @@ END
  * is A-Z; all other code points map to themselves */
 END
         output_table(\@ascii_fold, "PL_fold");
+
+        # This table is also the correct folding for the default C locale
+        output_table(\@ascii_fold, "PL_fold_locale");
     }
 
     {