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 /utf8.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 'utf8.h')
| -rw-r--r-- | utf8.h | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -270,6 +270,10 @@ Perl's extended UTF-8 means we can have start bytes up to FF. #error UTF8_MAXBYTES must be at least 12 #endif +/* ^? is defined to be DEL on ASCII systems. See the definition of toCTRL() + * for more */ +#define QUESTION_MARK_CTRL DEL_NATIVE + #define MAX_UTF8_TWO_BYTE 0x7FF #define UTF8_MAXBYTES_CASE UTF8_MAXBYTES |