is this the appropriate patch to fix: [ID 20001106.006] find2perl generated scripts...

Message-ID: <Pine.LNX.4.30.0011080957440.2572-100000@dd.tc.fluke.com>

p4raw-id: //depot/perl@7612

diff --git a/pp_sys.c b/pp_sys.c
index 239e3f7..7a9dc39 100644 (file)
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -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: