From a54d139f3c5753e3de93051a7a2c1190ed3e7615 Mon Sep 17 00:00:00 2001
From: David Mitchell <davem@iabyn.com>
Date: Wed, 17 Aug 2016 09:01:44 +0100
Subject: av_fetch(): remove redundant condition

At the point of testing for !AvARRAY(av)[key] if AvREIFY(av), it's already
been confirmed that the array element isn't null.
---
 av.c | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'av.c')

diff --git a/av.c b/av.c
index fc2004ee43..2f819717a7 100644
--- a/av.c
+++ b/av.c
@@ -279,9 +279,8 @@ Perl_av_fetch(pTHX_ AV *av, SSize_t key, I32 lval)
 	return lval ? av_store(av,key,newSV(0)) : NULL;
     }
 
-    if (AvREIFY(av)
-	     && (!AvARRAY(av)[key]	/* eg. @_ could have freed elts */
-		 || SvIS_FREED(AvARRAY(av)[key]))) {
+    if (AvREIFY(av) && SvIS_FREED(AvARRAY(av)[key])) {
+	/* eg. @_ could have freed elts */
 	AvARRAY(av)[key] = NULL;	/* 1/2 reify */
 	goto emptyness;
     }
-- 
cgit v1.2.1