From b79b76e09d4ebd270b9df34cc7e92494ba4df212 Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Mon, 16 Feb 2009 22:00:14 +0000 Subject: 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. --- perl.c | 12 ++++-------- 1 file changed, 4 insertions(+), 8 deletions(-) (limited to 'perl.c') diff --git a/perl.c b/perl.c index e9a40187fb..6a16d78abe 100644 --- a/perl.c +++ b/perl.c @@ -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 */ -- cgit v1.2.1