From: Andy Lester <andy@petdance.com>
Date: Sun, 30 Apr 2006 13:24:14 +0000 (-0500)
Subject: Some more SvREFCNT_inc updates
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=74c765ebd9546713996cf9b987d7f80fa82a7674;p=p5sagit%2Fp5-mst-13.2.git

Some more SvREFCNT_inc updates
Message-ID: <20060430182414.GA18094@petdance.com>

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

diff --git a/cop.h b/cop.h
index 5b6014b..ed6151e 100644
--- a/cop.h
+++ b/cop.h
@@ -270,8 +270,8 @@ struct block_sub {
 	cx->blk_sub.hasargs = hasargs;					\
 	cx->blk_sub.retop = NULL;					\
 	if (!CvDEPTH(cv)) {						\
-	    SvREFCNT_inc_void(cv);					\
-	    SvREFCNT_inc_void(cv);					\
+	    SvREFCNT_inc_simple_void_NN(cv);				\
+	    SvREFCNT_inc_simple_void_NN(cv);				\
 	    SAVEFREESV(cv);						\
 	}
 
diff --git a/pp_ctl.c b/pp_ctl.c
index 8ade9c3..0aec4c5 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -2417,7 +2417,7 @@ PP(pp_goto)
 
 		CvDEPTH(cv)++;
 		if (CvDEPTH(cv) < 2)
-		    SvREFCNT_inc_void_NN(cv);
+		    SvREFCNT_inc_simple_void_NN(cv);
 		else {
 		    if (CvDEPTH(cv) == 100 && ckWARN(WARN_RECURSION))
 			sub_crush_depth(cv);
@@ -3189,7 +3189,7 @@ PP(pp_require)
 			if (SvROK(arg) && (SvTYPE(SvRV(arg)) <= SVt_PVLV)
 			    && !isGV_with_GP(SvRV(arg))) {
 			    filter_cache = SvRV(arg);
-			    SvREFCNT_inc_void_NN(filter_cache);
+			    SvREFCNT_inc_simple_void_NN(filter_cache);
 
 			    if (i < count) {
 				arg = SP[i++];
@@ -3221,7 +3221,7 @@ PP(pp_require)
 
 			if (SvROK(arg) && SvTYPE(SvRV(arg)) == SVt_PVCV) {
 			    filter_sub = arg;
-			    SvREFCNT_inc_void_NN(filter_sub);
+			    SvREFCNT_inc_simple_void_NN(filter_sub);
 
 			    if (i < count) {
 				filter_state = SP[i];