This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
an assert in av_undef was leaking memory
[perl5.git] / av.c
diff --git a/av.c b/av.c
index 2b28223..f2afa82 100644 (file)
--- a/av.c
+++ b/av.c
@@ -502,8 +502,6 @@ Perl_av_undef(pTHX_ register AV *av)
     AvALLOC(av) = 0;
     SvPV_set(av, (char*)0);
     AvMAX(av) = AvFILLp(av) = -1;
-    /* It's in magic - it must already be gone.  */
-    assert (!AvARYLEN(av));
 }
 
 /*