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 /pp_sys.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 'pp_sys.c')
-rw-r--r-- | pp_sys.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1894,7 +1894,7 @@ PP(pp_eof) if (MAXARG == 0) { if (PL_op->op_flags & OPf_SPECIAL) { /* eof() */ IO *io; - gv = PL_last_in_gv = PL_argvgv; + gv = PL_last_in_gv = GvEGV(PL_argvgv); io = GvIO(gv); if (io && !IoIFP(io)) { if ((IoFLAGS(io) & IOf_START) && av_len(GvAVn(gv)) < 0) { |