From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 1 Apr 2001 05:44:34 +0000 (+0000)
Subject: Protect the workaround hunk more.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1143fce06f1e648f1e3622d992d89c012fd409c6;p=p5sagit%2Fp5-mst-13.2.git

Protect the workaround hunk more.

p4raw-id: //depot/perl@9498
---

diff --git a/toke.c b/toke.c
index 00b47c8..1095ae2 100644
--- a/toke.c
+++ b/toke.c
@@ -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);
 		    }