From: Nicholas Clark <nick@ccl4.org>
Date: Sat, 6 Oct 2007 12:54:32 +0000 (+0000)
Subject: Use vnewSVpvf() rather than sv_vcatpvf() onto a newly created empty
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=53ce71d37f27a80bc42faba5c56ff7a3580a11f8;p=p5sagit%2Fp5-mst-13.2.git

Use vnewSVpvf() rather than sv_vcatpvf() onto a newly created empty
string.

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

diff --git a/perlio.c b/perlio.c
index 7c0abfc..2ea86aa 100644
--- a/perlio.c
+++ b/perlio.c
@@ -5035,16 +5035,16 @@ int
 PerlIO_vprintf(PerlIO *f, const char *fmt, va_list ap)
 {
     dTHX;
-    SV * const sv = newSVpvs("");
+    SV * sv;
     const char *s;
     STRLEN len;
     SSize_t wrote;
 #ifdef NEED_VA_COPY
     va_list apc;
     Perl_va_copy(ap, apc);
-    sv_vcatpvf(sv, fmt, &apc);
+    sv = vnewSVpvf(fmt, &apc);
 #else
-    sv_vcatpvf(sv, fmt, &ap);
+    sv = vnewSVpvf(fmt, &ap);
 #endif
     s = SvPV_const(sv, len);
     wrote = PerlIO_write(f, s, len);