Use sv_setpvs() like a few lines before since change #33557

rgs · rgs · commit 523f125d4a71 · 2008-03-25T09:52:27.000Z
p4raw-link: @33557 on //depot/perl: 502d923 p4raw-id: //depot/perl@33560
diff --git a/pp.c b/pp.c
@@ -3199,7 +3199,7 @@ PP(pp_substr)
 		else if (SvOK(sv))	/* is it defined ? */
 		    (void)SvPOK_only_UTF8(sv);
 		else
-		    sv_setpvn(sv,"",0);	/* avoid lexical reincarnation */
+		    sv_setpvs(sv, ""); /* avoid lexical reincarnation */
 	    }
 
 	    if (SvTYPE(TARG) < SVt_PVLV) {

Original file line number	Diff line number	Diff line change
`@@ -3199,7 +3199,7 @@ PP(pp_substr)`
`3199`	`3199`	`else if (SvOK(sv)) /* is it defined ? */`
`3200`	`3200`	`(void)SvPOK_only_UTF8(sv);`
`3201`	`3201`	`else`
`3202`		`- sv_setpvn(sv,"",0); /* avoid lexical reincarnation */`
	`3202`	`+ sv_setpvs(sv, ""); /* avoid lexical reincarnation */`
`3203`	`3203`	`}`
`3204`	`3204`
`3205`	`3205`	`if (SvTYPE(TARG) < SVt_PVLV) {`