diff options
| author | Karl Williamson <khw@cpan.org> | 2019-03-06 14:00:10 -0700 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2019-03-06 14:24:13 -0700 |
| commit | c11f6329a2001a507b929b443e7512970fe62202 (patch) | |
| tree | aecb00063e379eba8331fa591c61e1f41886d399 /ebcdic_tables.h | |
| parent | 44289c0b2f08b3d5d540647539cc711c1ba0444c (diff) | |
| download | perl-c11f6329a2001a507b929b443e7512970fe62202.tar.gz | |
Check for \n in EBCDIC code pages
IBM says that there are 13 characters whose code point varies depending
on the EBCDIC code page. They fail to mention that the \n character may
also vary. This commit adds checks for \n, in addition to the checks
for the 13 graphic variant ones.
Diffstat (limited to 'ebcdic_tables.h')
| -rw-r--r-- | ebcdic_tables.h | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ebcdic_tables.h b/ebcdic_tables.h index 99f533bae7..4036114cb1 100644 --- a/ebcdic_tables.h +++ b/ebcdic_tables.h @@ -40,7 +40,7 @@ SOFTWARE. #if 'A' == 193 /* EBCDIC 1047 */ \ && '\\' == 224 && '[' == 173 && ']' == 189 && '{' == 192 && '}' == 208 \ && '^' == 95 && '~' == 161 && '!' == 90 && '#' == 123 && '|' == 79 \ - && '$' == 91 && '@' == 124 && '`' == 121 + && '$' == 91 && '@' == 124 && '`' == 121 && '\n' == 21 /* Index is ASCII platform code point; value is EBCDIC 1047 equivalent */ # ifndef DOINIT @@ -417,7 +417,7 @@ SOFTWARE. #if 'A' == 193 /* EBCDIC 037 */ \ && '\\' == 224 && '[' == 186 && ']' == 187 && '{' == 192 && '}' == 208 \ && '^' == 176 && '~' == 161 && '!' == 90 && '#' == 123 && '|' == 79 \ - && '$' == 91 && '@' == 124 && '`' == 121 + && '$' == 91 && '@' == 124 && '`' == 121 && '\n' == 37 /* Index is ASCII platform code point; value is EBCDIC 037 equivalent */ # ifndef DOINIT |