diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-11 22:24:31 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-11 22:24:31 +0000 |
| commit | 746b446a82799460054f7c1acb01d263532ccf04 (patch) | |
| tree | 87c40df21b09ddfd758c9ef2d7fd26368ef0fdc8 /toke.c | |
| parent | bcdf844ec43758755fb92c24cba65e915d95b25b (diff) | |
| download | perl-746b446a82799460054f7c1acb01d263532ccf04.tar.gz | |
EBCDIC: the toke.c wariness about UTF-8 (really, UTF-EBCDIC)
scripts does not apply any more. (The utf8.t needed a little
bit of relaxing to work in EBCDIC, since *both* the bytes in
subtest #30 are illegal UTF-EBCDIC, and the error message
matched is slightly different.) The utf8.t now passes.
p4raw-id: //depot/perl@16550
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 6 |
1 files changed, 1 insertions, 5 deletions
@@ -41,11 +41,7 @@ static I32 utf16rev_textfilter(pTHX_ int idx, SV *sv, int maxlen); #ifdef USE_UTF8_SCRIPTS # define UTF (!IN_BYTES) #else -# ifdef EBCDIC /* For now 'use utf8' does not affect tokenizer on EBCDIC */ -# define UTF (PL_linestr && DO_UTF8(PL_linestr)) -# else -# define UTF ((PL_linestr && DO_UTF8(PL_linestr)) || (PL_hints & HINT_UTF8)) -# endif +# define UTF ((PL_linestr && DO_UTF8(PL_linestr)) || (PL_hints & HINT_UTF8)) #endif /* In variables named $^X, these are the legal values for X. |