This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Directly create the SV with Perl_newSVpvf() rather than using
[perl5.git] / perlio.c
index bbb12db..7c0abfc 100644 (file)
--- 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);