From 3888144c4854bb47165057c7e17c85416b7b15be Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Fri, 13 Jan 2012 20:31:23 -0800 Subject: [PATCH] Squash repetitititive code in doio.c:my_stat_flags --- doio.c | 11 +++-------- 1 file changed, 3 insertions(+), 8 deletions(-) diff --git a/doio.c b/doio.c index 7f3160d..b0c5a69 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; -- 2.7.4