Squash repetitititive code in doio.c:my_stat_flags

1 files changed, 3 insertions, 8 deletions

diff --git a/doio.c b/doio.c
index 7f3160d96c..b0c5a690c5 100644
--- 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;