diff options
author | Karl Williamson <khw@cpan.org> | 2014-05-12 18:29:41 -0600 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2014-05-31 11:57:00 -0600 |
commit | 0ed2b00b2bd6a650391433ad8733983692df43d5 (patch) | |
tree | 58fcb6e37392ef5f52aaccb965f7c087749f0e68 /utfebcdic.h | |
parent | dd9bc2b0af8e838ed989897601a0ee36eeed092f (diff) | |
download | perl-0ed2b00b2bd6a650391433ad8733983692df43d5.tar.gz |
Fix definition of toCTRL() for EBCDIC
The definition was incorrect. When going from control to printable
name, we need to go from Latin1 -> Native, so that e.g., a 65 gets
turned into the native 'A'
Diffstat (limited to 'utfebcdic.h')
-rw-r--r-- | utfebcdic.h | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/utfebcdic.h b/utfebcdic.h index 1211c9fd4a..7eec66fd0b 100644 --- a/utfebcdic.h +++ b/utfebcdic.h @@ -194,6 +194,10 @@ END_EXTERN_C * character occupies 5 bytes, therefore this number is 15 */ #define UTF8_MAXBYTES_CASE 15 +/* ^? is defined to be APC on EBCDIC systems. See the definition of toCTRL() + * for more */ +#define QUESTION_MARK_CTRL LATIN1_TO_NATIVE(0x9F) + #define MAX_UTF8_TWO_BYTE 0x3FF /* |