Mark all places where perl needs to look at a possibly-freed scalar

with a macro SvIS_FREED(sv)

p4raw-id: //depot/perl@26132

1 files changed, 1 insertions, 1 deletions

diff --git a/av.c b/av.c
index df35b1a839..5f9c0921f5 100644
--- a/av.c
+++ b/av.c
@@ -244,7 +244,7 @@ Perl_av_fetch(pTHX_ register AV *av, I32 key, I32 lval)
     }
     else if (AvREIFY(av)
 	     && (!AvARRAY(av)[key]	/* eg. @_ could have freed elts */
-		 || SvTYPE(AvARRAY(av)[key]) == SVTYPEMASK)) {
+		 || SvIS_FREED(AvARRAY(av)[key]))) {
 	AvARRAY(av)[key] = &PL_sv_undef;	/* 1/2 reify */
 	goto emptyness;
     }