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

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

diff --git a/perl.c b/perl.c
index 48504dd..83d50e1 100644
--- a/perl.c
+++ b/perl.c
@@ -4206,11 +4206,6 @@ S_init_perllib(pTHX)
 #  endif
 #endif
 
-#if defined(PERL_VENDORLIB_STEM) && defined(PERL_INC_VERSION_LIST)
-    /* Search for version-specific dirs below here */
-    S_incpush_use_sep(aTHX_ STR_WITH_LEN(PERL_VENDORLIB_STEM), INCPUSH_CAN_RELOCATE);
-#endif
-
 #ifdef ARCHLIB_EXP
     S_incpush_use_sep(aTHX_ STR_WITH_LEN(ARCHLIB_EXP), INCPUSH_CAN_RELOCATE);
 #endif
@@ -4281,7 +4276,7 @@ S_init_perllib(pTHX)
 
 #if defined(PERL_VENDORLIB_STEM) && defined(PERL_INC_VERSION_LIST)
     /* Search for version-specific dirs below here */
-    S_incpush_use_sep(aTHX_ STR_WITH_LEN(PERL_VENDORLIB_STEM), INCPUSH_ADD_OLD_VERS|INCPUSH_NOT_BASEDIR|INCPUSH_CAN_RELOCATE);
+    S_incpush_use_sep(aTHX_ STR_WITH_LEN(PERL_VENDORLIB_STEM), INCPUSH_ADD_OLD_VERS|INCPUSH_CAN_RELOCATE);
 #endif
 
 #ifdef PERL_OTHERLIBDIRS