Squash repetitititive code in doio.c:my_stat_flags

diff --git a/doio.c b/doio.c
index 7f3160d..b0c5a69 100644 (file)
--- a/doio.c
+++ b/doio.c
@@ -1285,16 +1285,11 @@ Perl_my_stat_flags(pTHX_ const U32 flags)
                return (PL_laststatval = PerlLIO_fstat(PerlIO_fileno(IoIFP(io)), &PL_statcache));
             } else if (IoDIRP(io)) {
                 return (PL_laststatval = PerlLIO_fstat(my_dirfd(IoDIRP(io)), &PL_statcache));
-            } else {
-               PL_laststatval = -1;
-               report_evil_fh(gv);
-                return -1;
             }
-       } else {
-           PL_laststatval = -1;
-           report_evil_fh(gv);
-            return -1;
         }
+       PL_laststatval = -1;
+       report_evil_fh(gv);
+       return -1;
     }
     else if (PL_op->op_private & OPpFT_STACKED) {
        return PL_laststatval;