diff options
| author | Torsten Foertsch <torsten.foertsch@gmx.net> | 2003-11-22 14:15:53 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-11-25 21:12:19 +0000 |
| commit | 2d7268923bcf822410c0286f060732300ab91ea7 (patch) | |
| tree | 30364141ce26d86c92b26dac7c95fea7aecb759b /pp_hot.c | |
| parent | dfc05e5b69279e317155520cec7e590d9c42a6bc (diff) | |
| download | perl-2d7268923bcf822410c0286f060732300ab91ea7.tar.gz | |
Re: bug or a feature?
Date: Sat, 22 Nov 2003 13:15:53 +0100
Message-Id: <200311221315.58539.torsten.foertsch@gmx.net>
and
Date: Sat, 22 Nov 2003 14:21:45 +0100
Message-Id: <200311221421.48940.torsten.foertsch@gmx.net>
(test moved to t/op/readline.t)
p4raw-id: //depot/perl@21787
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -1567,7 +1567,9 @@ Perl_do_readline(pTHX) for (;;) { PUTBACK; if (!sv_gets(sv, fp, offset) - && (type == OP_GLOB || SNARF_EOF(gimme, PL_rs, io, sv))) + && (type == OP_GLOB + || SNARF_EOF(gimme, PL_rs, io, sv) + || PerlIO_error(fp))) { PerlIO_clearerr(fp); if (IoFLAGS(io) & IOf_ARGV) { |