In S_init_perllib(), push the bare SITELIB_STEM onto @INC after its subdirs.
Nicholas Clark [Sun, 22 Feb 2009 19:27:08 +0000 (20:27 +0100)]
perl.c

diff --git a/perl.c b/perl.c
index 02d06b9..48504dd 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -4187,11 +4187,6 @@ S_init_perllib(pTHX)
 #  endif
 #endif
 
-#if defined(SITELIB_STEM) && defined(PERL_INC_VERSION_LIST)
-    /* Search for version-specific dirs below here */
-    S_incpush_use_sep(aTHX_ STR_WITH_LEN(SITELIB_STEM), INCPUSH_CAN_RELOCATE);
-#endif
-
 #ifdef PERL_VENDORARCH_EXP
     /* vendorarch is always relative to vendorlib on Windows for
      * DLL-based path intuition to work correctly */
@@ -4280,7 +4275,7 @@ S_init_perllib(pTHX)
 #ifndef MACOS_TRADITIONAL
 #if defined(SITELIB_STEM) && defined(PERL_INC_VERSION_LIST)
     /* Search for version-specific dirs below here */
-    S_incpush_use_sep(aTHX_ STR_WITH_LEN(SITELIB_STEM), INCPUSH_ADD_OLD_VERS|INCPUSH_NOT_BASEDIR|INCPUSH_CAN_RELOCATE);
+    S_incpush_use_sep(aTHX_ STR_WITH_LEN(SITELIB_STEM), INCPUSH_ADD_OLD_VERS|INCPUSH_CAN_RELOCATE);
 #endif