summaryrefslogtreecommitdiff
path: root/toke.c
diff options
context:
space:
mode:
authorVadim Konovalov <vkonovalov@lucent.com>2001-02-06 12:23:20 +0300
committerNick Ing-Simmons <nik@tiuk.ti.com>2001-02-06 20:21:40 +0000
commitaa832f4288d752b7d495a7b95b97bfa9a50532a8 (patch)
tree540c4f21862ffde2e768ddda5f7e66df9ac8d218 /toke.c
parent74078192d18adfe8716fde09af21dde48fda1204 (diff)
downloadperl-aa832f4288d752b7d495a7b95b97bfa9a50532a8.tar.gz
RE: some win32 fixes
Message-ID: <402099F49BEED211999700805FC7359F9CAF49@ru0028exch01.spb.lucent.com> p4raw-id: //depot/perl@8706
Diffstat (limited to 'toke.c')
-rw-r--r--toke.c4
1 files changed, 0 insertions, 4 deletions
diff --git a/toke.c b/toke.c
index a1f521d1ed..3c9c5f3ed7 100644
--- a/toke.c
+++ b/toke.c
@@ -4170,10 +4170,6 @@ Perl_yylex(pTHX)
(void)PerlIO_seek(PL_rsfp, 0L, 0);
}
if (PerlLIO_setmode(PerlIO_fileno(PL_rsfp), O_TEXT) != -1) {
-#if defined(__BORLANDC__)
- /* XXX see note in do_binmode() */
- ((FILE*)PL_rsfp)->flags |= _F_BIN;
-#endif
if (loc > 0)
PerlIO_seek(PL_rsfp, loc, 0);
}