1 diff --git a/perl.c b/perl.c
2 index dfb549d..9b5dd4c 100644
5 @@ -4151,26 +4151,6 @@ S_init_perllib(pTHX)
10 - S_incpush_use_sep(aTHX_ STR_WITH_LEN(ARCHLIB_EXP), INCPUSH_CAN_RELOCATE);
14 -# define PRIVLIB_EXP "/usr/local/lib/perl5:/usr/local/lib/perl"
18 - s = win32_get_privlib(PERL_FS_VERSION, &len);
20 - incpush_use_sep(s, len, INCPUSH_ADD_SUB_DIRS|INCPUSH_CAN_RELOCATE);
23 - S_incpush_use_sep(aTHX_ PRIVLIB_EXP, 0, INCPUSH_CAN_RELOCATE);
25 - S_incpush_use_sep(aTHX_ STR_WITH_LEN(PRIVLIB_EXP), INCPUSH_CAN_RELOCATE);
29 #ifdef PERL_OTHERLIBDIRS
30 S_incpush_use_sep(aTHX_ STR_WITH_LEN(PERL_OTHERLIBDIRS),
31 INCPUSH_ADD_VERSIONED_SUB_DIRS|INCPUSH_NOT_BASEDIR
32 @@ -4216,15 +4196,35 @@ S_init_perllib(pTHX)
34 #if defined(SITELIB_STEM) && defined(PERL_INC_VERSION_LIST)
35 /* Search for version-specific dirs below here */
36 - S_incpush_use_sep(aTHX_ STR_WITH_LEN(SITELIB_STEM),
37 - INCPUSH_ADD_OLD_VERS|INCPUSH_CAN_RELOCATE);
38 +/* S_incpush_use_sep(aTHX_ STR_WITH_LEN(SITELIB_STEM),
39 + INCPUSH_ADD_OLD_VERS|INCPUSH_CAN_RELOCATE); */
43 #if defined(PERL_VENDORLIB_STEM) && defined(PERL_INC_VERSION_LIST)
44 /* Search for version-specific dirs below here */
45 - S_incpush_use_sep(aTHX_ STR_WITH_LEN(PERL_VENDORLIB_STEM),
46 - INCPUSH_ADD_OLD_VERS|INCPUSH_CAN_RELOCATE);
47 +/* S_incpush_use_sep(aTHX_ STR_WITH_LEN(PERL_VENDORLIB_STEM),
48 + INCPUSH_ADD_OLD_VERS|INCPUSH_CAN_RELOCATE); */
52 + S_incpush_use_sep(aTHX_ STR_WITH_LEN(ARCHLIB_EXP), INCPUSH_CAN_RELOCATE);
56 +# define PRIVLIB_EXP "/usr/local/lib/perl5:/usr/local/lib/perl"
60 + s = win32_get_privlib(PERL_FS_VERSION, &len);
62 + incpush_use_sep(s, len, INCPUSH_ADD_SUB_DIRS|INCPUSH_CAN_RELOCATE);
65 + S_incpush_use_sep(aTHX_ PRIVLIB_EXP, 0, INCPUSH_CAN_RELOCATE);
67 + S_incpush_use_sep(aTHX_ STR_WITH_LEN(PRIVLIB_EXP), INCPUSH_CAN_RELOCATE);
71 #ifdef PERL_OTHERLIBDIRS