[perl #71002] stat() on unopened fh _

stat _ was producing an erroneous warning about an unopened filehandle
with _.  But _ isn’t a real filehandle and is special-cased, so it
shouldn’t warn.

See also commit 8080e3c8.

1 files changed, 1 insertions, 1 deletions

diff --git a/pp_sys.c b/pp_sys.c
index 0a1b1dc864..246c9ad4c0 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -2796,10 +2796,10 @@ PP(pp_stat)
                         PL_laststatval = -1;
                     }
             }
+	    if (PL_laststatval < 0 && !havefp) report_evil_fh(gv);
         }
 
 	if (PL_laststatval < 0) {
-	    if (!havefp) report_evil_fh(gv);
 	    max = 0;
 	}
     }