From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 31 Dec 2008 07:32:42 +0000 (+0000)
Subject: More efficient API choices for string appending.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d0a9311f604aa78fbd7b7284f993900eeb0c2a7e;p=p5sagit%2Fp5-mst-13.2.git

More efficient API choices for string appending.
---

diff --git a/perl.c b/perl.c
index f55521d..34bbbab 100644
--- a/perl.c
+++ b/perl.c
@@ -3311,14 +3311,14 @@ Perl_moreswitches(pTHX_ const char *s)
 #ifdef PERL_PATCHNUM
 	    SV* num= newSVpvn(STRINGIFY(PERL_PATCHNUM),sizeof(STRINGIFY(PERL_PATCHNUM))-1);
 #ifdef PERL_GIT_UNCOMMITTED_CHANGES
-	    Perl_sv_catpvf(aTHX_ num,"%s","*");
+	    sv_catpvs(num, "*");
 #endif
 
 	    if (sv_len(num)>=sv_len(level) && strnEQ(SvPV_nolen(num),SvPV_nolen(level),sv_len(level))) {
 		SvREFCNT_dec(level);
 		level= num;
 	    } else {
-		Perl_sv_catpvf(aTHX_ level, " (%s)",SvPV_nolen(num));
+		Perl_sv_catpvf(aTHX_ level, " (%"SVf")", num);
 		SvREFCNT_dec(num);
 	    }
  #endif