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 (file)
--- 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 */