summaryrefslogtreecommitdiff
path: root/regen
diff options
context:
space:
mode:
authorKarl Williamson <khw@cpan.org>2021-06-16 20:10:45 -0600
committerKarl Williamson <khw@cpan.org>2021-08-07 05:14:44 -0600
commit51b58dba7ba5a13c027c24eee220e82eab517ce5 (patch)
treee3b17e4a8fd614430b3a7ae1bd2e828f8bae3964 /regen
parent6f8b1f9311454d2c11cb8a196b1367e9b3933cee (diff)
downloadperl-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.pl10
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