7fc731078209e8c26ed8bba477edfd90724c7146 missed one (addsubdirs || addoldvers).
Nicholas Clark [Sun, 22 Feb 2009 20:29:32 +0000 (21:29 +0100)]
perl.c

diff --git a/perl.c b/perl.c
index 83d50e1..1a1701f 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -4482,7 +4482,7 @@ S_incpush(pTHX_ const char *const dir, STRLEN len, U32 flags)
         * BEFORE pushing libdir onto @INC we may first push version- and
         * archname-specific sub-directories.
         */
-       if (addsubdirs || addoldvers) {
+       if (using_sub_dirs) {
 #ifdef PERL_INC_VERSION_LIST
            /* Configure terminates PERL_INC_VERSION_LIST with a NULL */
            const char * const incverlist[] = { PERL_INC_VERSION_LIST };