perl 5.003_01: cop.h

Increment refcount on @_ when passed through to another sub,
so it's not freed twiceon return.

1 files changed, 3 insertions, 0 deletions

diff --git a/cop.h b/cop.h
index b5033090d9..bea47c4c6a 100644
--- a/cop.h
+++ b/cop.h
@@ -52,6 +52,9 @@ struct block_sub {
 	}								\
 	if (cx->blk_sub.cv) {						\
 	    if (!(CvDEPTH(cx->blk_sub.cv) = cx->blk_sub.olddepth)) {	\
+	        if (cx->blk_sub.hasargs) {				\
+	    	    SvREFCNT_inc((SV*)cx->blk_sub.argarray);		\
+		}							\
 		SvREFCNT_dec((SV*)cx->blk_sub.cv);			\
 	    }								\
 	}