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 /l1_char_class_tab.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 'l1_char_class_tab.h')
| -rw-r--r-- | l1_char_class_tab.h | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/l1_char_class_tab.h b/l1_char_class_tab.h index 9e8bb99a34..c6580adee3 100644 --- a/l1_char_class_tab.h +++ b/l1_char_class_tab.h @@ -270,7 +270,7 @@ #if 'A' == 193 /* EBCDIC 1047 */ \ && '\\' == 224 && '[' == 173 && ']' == 189 && '{' == 192 && '}' == 208 \ && '^' == 95 && '~' == 161 && '!' == 90 && '#' == 123 && '|' == 79 \ - && '$' == 91 && '@' == 124 && '`' == 121 + && '$' == 91 && '@' == 124 && '`' == 121 && '\n' == 21 /* U+00 NUL */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA), /* U+01 SOH */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA), /* U+02 STX */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA), @@ -533,7 +533,7 @@ #if 'A' == 193 /* EBCDIC 037 */ \ && '\\' == 224 && '[' == 186 && ']' == 187 && '{' == 192 && '}' == 208 \ && '^' == 176 && '~' == 161 && '!' == 90 && '#' == 123 && '|' == 79 \ - && '$' == 91 && '@' == 124 && '`' == 121 + && '$' == 91 && '@' == 124 && '`' == 121 && '\n' == 37 /* U+00 NUL */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA), /* U+01 SOH */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA), /* U+02 STX */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA), |