diff options
author | Karl Williamson <khw@cpan.org> | 2021-06-16 20:10:45 -0600 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2021-08-07 05:14:44 -0600 |
commit | 51b58dba7ba5a13c027c24eee220e82eab517ce5 (patch) | |
tree | e3b17e4a8fd614430b3a7ae1bd2e828f8bae3964 /regen | |
parent | 6f8b1f9311454d2c11cb8a196b1367e9b3933cee (diff) | |
download | perl-51b58dba7ba5a13c027c24eee220e82eab517ce5.tar.gz |
Remove EBCDIC-only code
The previous commit stopped using this code, so can just get rid of it.
Diffstat (limited to 'regen')
-rw-r--r-- | regen/mk_PL_charclass.pl | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/regen/mk_PL_charclass.pl b/regen/mk_PL_charclass.pl index 57e3f63c24..b192371185 100644 --- a/regen/mk_PL_charclass.pl +++ b/regen/mk_PL_charclass.pl @@ -376,16 +376,6 @@ foreach my $charset (get_supported_code_pages()) { $out[$index] .= "$name */ "; $out[$index] .= $bits[$ord]; - # For EBCDIC character sets, we also add some data for when the bytes - # are in UTF-EBCDIC; these are based on the fundamental - # characteristics of UTF-EBCDIC. - if (@utf_to_i8) { - if ($i8 >= 0xF1) { - $out[$index] .= - '|(1U<<_CC_UTF8_START_BYTE_IS_FOR_AT_LEAST_SURROGATE)'; - } - } - $out[$index] .= ",\n"; } $out[-1] =~ s/,$//; # No trailing comma in the final entry |