From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 16 Feb 2009 22:03:35 +0000 (+0000)
Subject: As PERL_ARCH_FMT_PATH is a compile time constant, can simplify one sv_setpvf()
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bdb1cbf7b53e27466d3d9ba865b3b0e74998bf89;p=p5sagit%2Fp5-mst-13.2.git

As PERL_ARCH_FMT_PATH is a compile time constant, can simplify one sv_setpvf()
to sv_setsv() and sv_catpvs().
---

diff --git a/perl.c b/perl.c
index 6a16d78..eb31f9e 100644
--- a/perl.c
+++ b/perl.c
@@ -4474,8 +4474,8 @@ S_incpush(pTHX_ const char *const dir, STRLEN len, U32 flags)
 		subdir = S_incpush_if_exists(aTHX_ av, subdir);
 
 		/* .../version if -d .../version */
-		Perl_sv_setpvf(aTHX_ subdir, "%"SVf PERL_ARCH_FMT_PATH,
-			       SVfARG(libdir));
+		sv_setsv(subdir, libdir);
+		sv_catpvs(subdir, PERL_ARCH_FMT_PATH);
 		subdir = S_incpush_if_exists(aTHX_ av, subdir);
 
 		/* .../archname if -d .../archname */