From 550e2ce03d201c2e16d6755c5e8b7feb3b2afe06 Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Sat, 6 Oct 2007 12:22:58 +0000
Subject: Directly create the SV with Perl_newSVpvf() rather than using
 Perl_catSVpvf() to extend a zero-length SV.

p4raw-id: //depot/perl@32042
---
 perlio.c | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'perlio.c')

diff --git a/perlio.c b/perlio.c
index bbb12db702..7c0abfca41 100644
--- a/perlio.c
+++ b/perlio.c
@@ -507,9 +507,8 @@ PerlIO_debug(const char *fmt, ...)
 #else
 	const char *s = CopFILE(PL_curcop);
 	STRLEN len;
-	SV * const sv = newSVpvs("");
-	Perl_sv_catpvf(aTHX_ sv, "%s:%" IVdf " ", s ? s : "(none)",
-		       (IV) CopLINE(PL_curcop));
+	SV * const sv = Perl_newSVpvf(aTHX_ "%s:%" IVdf " ", s ? s : "(none)",
+				      (IV) CopLINE(PL_curcop));
 	Perl_sv_vcatpvf(aTHX_ sv, fmt, &ap);
 
 	s = SvPV_const(sv, len);
-- 
cgit v1.2.1