Perl 5.001perl-5.001

[See the Changes file for a list of changes]

1 files changed, 4 insertions, 0 deletions

diff --git a/av.c b/av.c
index 058e1542e8..7116cc4482 100644
--- a/av.c
+++ b/av.c
@@ -305,6 +305,10 @@ register AV *av;
     AvALLOC(av) = 0;
     SvPVX(av) = 0;
     AvMAX(av) = AvFILL(av) = -1;
+    if (AvARYLEN(av)) {
+	SvREFCNT_dec(AvARYLEN(av));
+	AvARYLEN(av) = 0;
+    }
 }
 
 void