diff options
| author | Nicholas Clark <nick@ccl4.org> | 2009-02-16 22:03:35 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2009-02-16 22:03:35 +0000 |
| commit | bdb1cbf7b53e27466d3d9ba865b3b0e74998bf89 (patch) | |
| tree | 1d26be7f6a0d42c925ea057dead8054db40e02d8 /perl.c | |
| parent | b79b76e09d4ebd270b9df34cc7e92494ba4df212 (diff) | |
| download | perl-bdb1cbf7b53e27466d3d9ba865b3b0e74998bf89.tar.gz | |
As PERL_ARCH_FMT_PATH is a compile time constant, can simplify one sv_setpvf()
to sv_setsv() and sv_catpvs().
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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 */ |