diff options
| author | Karl Williamson <public@khwilliamson.com> | 2012-09-02 10:30:32 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2012-09-13 21:14:00 -0600 |
| commit | ec34087a0a7a2c973993150137f0f8428541e7a0 (patch) | |
| tree | 4ed5dcda5a79d227c7b8d03d67e7a406671db2a3 /perl.h | |
| parent | 1b0f46bfdeb9373b604bc2b77173cd26c0d37ecc (diff) | |
| download | perl-ec34087a0a7a2c973993150137f0f8428541e7a0.tar.gz | |
Remove some EBCDIC dependencies
A new regen'd header file has been created that contains the native
values for certain characters. By using those macros, we can eliminate
EBCDIC dependencies.
Diffstat (limited to 'perl.h')
| -rw-r--r-- | perl.h | 10 |
1 files changed, 1 insertions, 9 deletions
@@ -5653,15 +5653,7 @@ extern void moncontrol(int); /* ISO 6429 NEL - C1 control NExt Line */ /* See http://www.unicode.org/unicode/reports/tr13/ */ -#ifdef EBCDIC /* In EBCDIC NEL is just an alias for LF */ -# if '^' == 95 /* CP 1047: MVS OpenEdition - OS/390 - z/OS */ -# define NEXT_LINE_CHAR 0x15 -# else /* CDRA */ -# define NEXT_LINE_CHAR 0x25 -# endif -#else -# define NEXT_LINE_CHAR 0x85 -#endif +#define NEXT_LINE_CHAR NEXT_LINE_NATIVE /* The UTF-8 bytes of the Unicode LS and PS, U+2028 and U+2029 */ #define UNICODE_LINE_SEPA_0 0xE2 |