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

diff --git a/perl.c b/perl.c
index 48504dd..83d50e1 100644 (file)
--- 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