diff options
| author | Nicholas Clark <nick@ccl4.org> | 2009-02-16 22:00:14 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2009-02-16 22:00:14 +0000 |
| commit | b79b76e09d4ebd270b9df34cc7e92494ba4df212 (patch) | |
| tree | 5c287cfc217cbd98702de165d57b6997d9442b77 /perl.c | |
| parent | e50b42d3b9d4d5466150b00299d8145beabd33df (diff) | |
| download | perl-b79b76e09d4ebd270b9df34cc7e92494ba4df212.tar.gz | |
PERL_FS_VER_FMT is only used with the current perl version, which is known at
compile time, so replace it with PERL_FS_VERSION, a compile time constant.
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 12 |
1 files changed, 4 insertions, 8 deletions
@@ -4463,23 +4463,19 @@ S_incpush(pTHX_ const char *const dir, STRLEN len, U32 flags) if (addsubdirs) { #ifdef MACOS_TRADITIONAL #define PERL_ARCH_FMT "%s:" -#define PERL_ARCH_FMT_PATH PERL_FS_VER_FMT "" +#define PERL_ARCH_FMT_PATH PERL_FS_VERSION "" #else #define PERL_ARCH_FMT "/%s" -#define PERL_ARCH_FMT_PATH "/" PERL_FS_VER_FMT +#define PERL_ARCH_FMT_PATH "/" PERL_FS_VERSION #endif /* .../version/archname if -d .../version/archname */ Perl_sv_setpvf(aTHX_ subdir, "%"SVf PERL_ARCH_FMT_PATH PERL_ARCH_FMT, - SVfARG(libdir), - (int)PERL_REVISION, (int)PERL_VERSION, - (int)PERL_SUBVERSION, ARCHNAME); + SVfARG(libdir), ARCHNAME); subdir = S_incpush_if_exists(aTHX_ av, subdir); /* .../version if -d .../version */ Perl_sv_setpvf(aTHX_ subdir, "%"SVf PERL_ARCH_FMT_PATH, - SVfARG(libdir), - (int)PERL_REVISION, (int)PERL_VERSION, - (int)PERL_SUBVERSION); + SVfARG(libdir)); subdir = S_incpush_if_exists(aTHX_ av, subdir); /* .../archname if -d .../archname */ |