From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 12 Jan 2004 17:27:25 +0000 (+0000)
Subject: use sv_setpvn rather than sv_setpv and save a strlen()
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fc0199cd1c85fd36bc9608790098dc15545b22a6;p=p5sagit%2Fp5-mst-13.2.git

use sv_setpvn rather than sv_setpv and save a strlen()

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

diff --git a/doop.c b/doop.c
index ffa1d1b..ea64ff8 100644
--- a/doop.c
+++ b/doop.c
@@ -669,7 +669,7 @@ Perl_do_join(pTHX_ register SV *sv, SV *del, register SV **mark, register SV **s
 	++mark;
     }
 
-    sv_setpv(sv, "");
+    sv_setpvn(sv, "", 0);
     /* sv_setpv retains old UTF8ness [perl #24846] */
     if (SvUTF8(sv))
 	SvUTF8_off(sv);