Add a new API function newSV_type, to replace the idiom:

sv = newSV(0);
sv_upgrade(sv, type);

p4raw-id: //depot/perl@30347

1 files changed, 1 insertions, 2 deletions

diff --git a/pp_hot.c b/pp_hot.c
index 5cd01be3ff..aa225c37da 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -1944,8 +1944,7 @@ PP(pp_iter)
 	if (lv)
 	    SvREFCNT_dec(LvTARG(lv));
 	else {
-	    lv = cx->blk_loop.iterlval = newSV(0);
-	    sv_upgrade(lv, SVt_PVLV);
+	    lv = cx->blk_loop.iterlval = newSV_type(SVt_PVLV);
 	    LvTYPE(lv) = 'y';
 	    sv_magic(lv, NULL, PERL_MAGIC_defelem, NULL, 0);
 	}