diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-12-29 21:04:59 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-12-29 21:04:59 +0000 |
| commit | 684bef36d5078e84d816e42ce6a73ae4452da2d7 (patch) | |
| tree | 4a64ac7c597496d77fd3a06f8ed1687cc6f728d9 /pp_hot.c | |
| parent | 06605284651a1ac6146b3e5bfbe2f3ff67c78591 (diff) | |
| download | perl-684bef36d5078e84d816e42ce6a73ae4452da2d7.tar.gz | |
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
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 9 |
1 files changed, 4 insertions, 5 deletions
@@ -1283,12 +1283,11 @@ Perl_do_readline(pTHX) offset = 0; } -/* flip-flop EOF state for a snarfed empty file */ +/* delay EOF state for a snarfed empty file */ #define SNARF_EOF(gimme,rs,io,sv) \ - ((gimme != G_SCALAR || SvCUR(sv) \ - || (IoFLAGS(io) & IOf_NOLINE) || IoLINES(io) || !RsSNARF(rs)) \ - ? ((IoFLAGS(io) &= ~IOf_NOLINE), TRUE) \ - : ((IoFLAGS(io) |= IOf_NOLINE), FALSE)) + (gimme != G_SCALAR || SvCUR(sv) \ + || !RsSNARF(rs) || (IoFLAGS(io) & IOf_NOLINE) \ + || ((IoFLAGS(io) |= IOf_NOLINE), FALSE)) for (;;) { if (!sv_gets(sv, fp, offset) |