projects
/
p5sagit/p5-mst-13.2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
Integrate changes #9493,9494,9495,9496 from maintperl
[p5sagit/p5-mst-13.2.git]
/
toke.c
diff --git
a/toke.c
b/toke.c
index
85ac7f2
..
00b47c8
100644
(file)
--- 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);
}