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

p4raw-id: //depot/perl@4102

1 files changed, 1 insertions, 0 deletions

diff --git a/cop.h b/cop.h
index d0a59a0f1f..6ea045a4a4 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))			\