diff options
| author | David Dyck <david.dyck@fluke.com> | 2000-11-08 02:05:44 -0800 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-11-08 18:35:25 +0000 |
| commit | 60a4c9abd93d003a9ee694b9990e017ce5b96fb5 (patch) | |
| tree | f5a1bf40a118032e5a4e9e277a09334577d14861 /pp_sys.c | |
| parent | febabd2afca32f4056ed041373de98438ab121ff (diff) | |
| download | perl-60a4c9abd93d003a9ee694b9990e017ce5b96fb5.tar.gz | |
is this the appropriate patch to fix: [ID 20001106.006] find2perl generated scripts issue new lstat() on filehandle _ warning
Message-ID: <Pine.LNX.4.30.0011080957440.2572-100000@dd.tc.fluke.com>
p4raw-id: //depot/perl@7612
Diffstat (limited to 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -2557,7 +2557,7 @@ PP(pp_stat) if (PL_op->op_flags & OPf_REF) { gv = cGVOP_gv; - if (PL_op->op_type == OP_LSTAT && ckWARN(WARN_IO)) + if (PL_op->op_type == OP_LSTAT && ckWARN(WARN_IO) && gv != PL_defgv) Perl_warner(aTHX_ WARN_IO, "lstat() on filehandle %s", GvENAME(gv)); do_fstat: |