From: Nicholas Clark <nick@ccl4.org>
Date: Sun, 22 Feb 2009 19:27:08 +0000 (+0100)
Subject: In S_init_perllib(), push the bare SITELIB_STEM onto @INC after its subdirs.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a8f9c4338a1e1adea9ac4c69500b6ef9cc351852;p=p5sagit%2Fp5-mst-13.2.git

In S_init_perllib(), push the bare SITELIB_STEM onto @INC after its subdirs.
---

diff --git a/perl.c b/perl.c
index 02d06b9..48504dd 100644
--- 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