diff options
author | Dave Mitchell <davem@fdisolutions.com> | 2004-02-14 02:06:53 +0000 |
---|---|---|
committer | Dave Mitchell <davem@fdisolutions.com> | 2004-02-14 02:06:53 +0000 |
commit | 0de566d74fdaf0a49123989fe8d4ad06603c6608 (patch) | |
tree | a7e6f359c44eb372067a0f7567f1e4ef9953ae22 /toke.c | |
parent | 21d1ba01f501963c6f61499860ffc70a78ab21c0 (diff) | |
download | perl-0de566d74fdaf0a49123989fe8d4ad06603c6608.tar.gz |
Switch from byacc to bison and simplify the perly.* regeneration
process
p4raw-id: //depot/perl@22302
Diffstat (limited to 'toke.c')
-rw-r--r-- | toke.c | 5 |
1 files changed, 5 insertions, 0 deletions
@@ -2189,6 +2189,11 @@ Perl_yylex_r(pTHX_ YYSTYPE *lvalp, int *lcharp) Perl_croak(aTHX_ "panic: YYMAXLEVEL"); r = Perl_yylex(aTHX); +# ifdef EBCDIC + if (r >= 0 && r < 255) { + r = NATIVE_TO_ASCII(r); + } +# endif if (yyactlevel > 0) yyactlevel--; |