slurp mode fix in change#2910 wasn't quite right (spotted by Hans

Mulder)

p4raw-link: @2910 on //depot/perl: fbad3eb55c1f8c84d1dfd0e484ecddeffc891e79

p4raw-id: //depot/perl@4736

1 files changed, 1 insertions, 0 deletions

diff --git a/doio.c b/doio.c
index c13228afe4..4571b2c711 100644
--- a/doio.c
+++ b/doio.c
@@ -452,6 +452,7 @@ Perl_do_open9(pTHX_ GV *gv, register char *name, I32 len, int as_raw,
     }
 #endif
     IoIFP(io) = fp;
+    IoFLAGS(io) &= ~IOf_NOLINE;
     if (writing) {
 	dTHR;
 	if (IoTYPE(io) == 's'