1 files changed, 2 insertions, 0 deletions
diff --git a/toke.c b/toke.c
index 85ac7f2bb0..00b47c866d 100644
--- a/toke.c
+++ b/toke.c
@@ -4182,6 +4182,8 @@ Perl_yylex(pTHX)
 			(void)PerlIO_seek(PL_rsfp, 0L, 0);
 		    }
 		    if (PerlLIO_setmode(PerlIO_fileno(PL_rsfp), O_TEXT) != -1) {
+			/* XXX see note in do_binmode() */
+			((FILE*)PL_rsfp)->flags &= ~_F_BIN;
 			if (loc > 0)
 			    PerlIO_seek(PL_rsfp, loc, 0);
 		    }