clearer docs for change#4796; faster av_exists()

p4raw-link: @4796 on //depot/perl: 010205895f86f073b0b2a20bd4cfbb05f0134888

p4raw-id: //depot/perl@4797

1 files changed, 4 insertions, 1 deletions

diff --git a/av.c b/av.c
index 3b7e81338a..af8296a841 100644
--- a/av.c
+++ b/av.c
@@ -663,8 +663,11 @@ Perl_av_exists(pTHX_ AV *av, I32 key)
 	    return SvTRUE(sv);
 	}
     }
-    if (av_fetch(av, key, 0))
+    if (key <= AvFILLp(av) && AvARRAY(av)[key] != &PL_sv_undef
+	&& AvARRAY(av)[key])
+    {
 	return TRUE;
+    }
     else
 	return FALSE;
 }