diff options
author | Gurusamy Sarathy <gsar@cpan.org> | 2000-06-30 14:47:45 +0000 |
---|---|---|
committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-06-30 14:47:45 +0000 |
commit | b9fee9baee77e65285db6dc2a81cd0157909d1bd (patch) | |
tree | 4bd48f5bdde5ce40de1a55972864f992fdfada8a /pp_hot.c | |
parent | 7032098e3624717c340da3e1b7cc1d22959257c0 (diff) | |
download | perl-b9fee9baee77e65285db6dc2a81cd0157909d1bd.tar.gz |
slurp mode fix in change#4736 still not quite right
p4raw-link: @4736 on //depot/perl: 684bef36d5078e84d816e42ce6a73ae4452da2d7
p4raw-id: //depot/perl@6294
Diffstat (limited to 'pp_hot.c')
-rw-r--r-- | pp_hot.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -1390,8 +1390,7 @@ Perl_do_readline(pTHX) /* delay EOF state for a snarfed empty file */ #define SNARF_EOF(gimme,rs,io,sv) \ (gimme != G_SCALAR || SvCUR(sv) \ - || !RsSNARF(rs) || (IoFLAGS(io) & IOf_NOLINE) \ - || ((IoFLAGS(io) |= IOf_NOLINE), FALSE)) + || (IoFLAGS(io) & IOf_NOLINE) || !RsSNARF(rs)) for (;;) { if (!sv_gets(sv, fp, offset) @@ -1424,6 +1423,7 @@ Perl_do_readline(pTHX) SvTAINTED_on(sv); } IoLINES(io)++; + IoFLAGS(io) |= IOf_NOLINE; SvSETMAGIC(sv); XPUSHs(sv); if (type == OP_GLOB) { |