From: Gurusamy Sarathy <gsar@cpan.org>
Date: Wed, 8 Sep 1999 00:52:50 +0000 (+0000)
Subject: fix memory leak in C<sub f { @_ = 1 } f() while 1>
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=64de36e6ad8b9ebb467d1f68ced94dc464b85104;p=p5sagit%2Fp5-mst-13.2.git

fix memory leak in C<sub f { @_ = 1 } f() while 1>

p4raw-id: //depot/perl@4102
---

diff --git a/cop.h b/cop.h
index d0a59a0..6ea045a 100644
--- a/cop.h
+++ b/cop.h
@@ -76,6 +76,7 @@ struct block_sub {
 	    /* destroy arg array */					\
 	    av_clear(cxsub.argarray);					\
 	    AvREAL_off(cxsub.argarray);					\
+	    AvREIFY_on(cxsub.argarray);					\
 	}								\
 	if (cxsub.cv) {							\
 	    if (!(CvDEPTH(cxsub.cv) = cxsub.olddepth))			\
diff --git a/pp_hot.c b/pp_hot.c
index bb034e5..7c7bc50 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -2512,6 +2512,7 @@ try_autoload:
 	    if (AvREAL(av)) {
 		av_clear(av);
 		AvREAL_off(av);
+		AvREIFY_on(av);
 	    }
 #ifndef USE_THREADS
 	    cx->blk_sub.savearray = GvAV(PL_defgv);