As PERL_ARCH_FMT_PATH is a compile time constant, can simplify one sv_setpvf()
authorNicholas Clark <nick@ccl4.org>
Mon, 16 Feb 2009 22:03:35 +0000 (22:03 +0000)
committerDavid Mitchell <davem@iabyn.com>
Tue, 14 Apr 2009 22:10:06 +0000 (23:10 +0100)
to sv_setsv() and sv_catpvs().

(cherry-picked from commit bdb1cbf7b53e27466d3d9ba865b3b0e74998bf89)

perl.c

diff --git a/perl.c b/perl.c
index 68e1e08..430f842 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -5188,8 +5188,8 @@ S_incpush(pTHX_ const char *dir, bool addsubdirs, bool addoldvers, bool usesep,
                subdir = S_incpush_if_exists(aTHX_ 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_ subdir);
 
                /* .../archname if -d .../archname */