diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-02-08 01:21:07 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-02-08 14:14:16 +0000 |
| commit | ed2c6b9b45ca155543a6a8e651e2d3e0d446406e (patch) | |
| tree | 3d26bca888d8c378415b17a5d55fa709dd0169a7 /doio.c | |
| parent | 327ccce1a786df11565e91b4bb4adc2762c13d28 (diff) | |
| download | perl-ed2c6b9b45ca155543a6a8e651e2d3e0d446406e.tar.gz | |
Re: [PATCH] eof() coredumps when ARGV is aliased to another filehandle
Message-ID: <20020208002107.E763@rafael>
p4raw-id: //depot/perl@14601
Diffstat (limited to 'doio.c')
| -rw-r--r-- | doio.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -997,7 +997,7 @@ Perl_do_eof(pTHX_ GV *gv) PerlIO_set_cnt(IoIFP(io),-1); } if (PL_op->op_flags & OPf_SPECIAL) { /* not necessarily a real EOF yet? */ - if (!nextargv(PL_argvgv)) /* get another fp handy */ + if (gv != PL_argvgv || !nextargv(gv)) /* get another fp handy */ return TRUE; } else |