From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Tue, 25 Mar 2008 09:52:27 +0000 (+0000)
Subject: Use sv_setpvs() like a few lines before since change #33557
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=523f125d4a71aa467fc6a9acfe6c304944f5a5f5;p=p5sagit%2Fp5-mst-13.2.git

Use sv_setpvs() like a few lines before since change #33557
p4raw-link: @33557 on //depot/perl: 502d9230ec570254fed51ae721c1da50944a5cbf

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

diff --git a/pp.c b/pp.c
index 3551d8f..8e2a395 100644
--- 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) {