diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-04-01 05:44:34 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-04-01 05:44:34 +0000 |
| commit | 1143fce06f1e648f1e3622d992d89c012fd409c6 (patch) | |
| tree | 0fa8efceac0a9c923310b7534db9c446eabed458 /toke.c | |
| parent | cb359b415c42e7a6c1192036d2ee416133c9daa1 (diff) | |
| download | perl-1143fce06f1e648f1e3622d992d89c012fd409c6.tar.gz | |
Protect the workaround hunk more.
p4raw-id: //depot/perl@9498
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -4182,8 +4182,12 @@ Perl_yylex(pTHX) (void)PerlIO_seek(PL_rsfp, 0L, 0); } if (PerlLIO_setmode(PerlIO_fileno(PL_rsfp), O_TEXT) != -1) { +#ifdef PERLIO_IS_STDIO /* really? */ +# if defined(__BORLANDC__) /* XXX see note in do_binmode() */ ((FILE*)PL_rsfp)->flags &= ~_F_BIN; +# endif +#endif if (loc > 0) PerlIO_seek(PL_rsfp, loc, 0); } |