2 # WARNING: this patch is devoted to a specific configuration
4 --- perl.c~ Tue Jul 9 19:41:43 2002
5 +++ perl.c Fri Mar 14 22:54:52 2003
7 incpush(APPLLIB_EXP, TRUE, TRUE);
11 - incpush(ARCHLIB_EXP, FALSE, FALSE);
13 -#ifdef MACOS_TRADITIONAL
16 - SV * privdir = NEWSV(55, 0);
17 - char * macperl = PerlEnv_getenv("MACPERL");
22 - Perl_sv_setpvf(aTHX_ privdir, "%slib:", macperl);
23 - if (PerlLIO_stat(SvPVX(privdir), &tmpstatbuf) >= 0 && S_ISDIR(tmpstatbuf.st_mode))
24 - incpush(SvPVX(privdir), TRUE, FALSE);
25 - Perl_sv_setpvf(aTHX_ privdir, "%ssite_perl:", macperl);
26 - if (PerlLIO_stat(SvPVX(privdir), &tmpstatbuf) >= 0 && S_ISDIR(tmpstatbuf.st_mode))
27 - incpush(SvPVX(privdir), TRUE, FALSE);
29 - SvREFCNT_dec(privdir);
32 - incpush(":", FALSE, FALSE);
35 -# define PRIVLIB_EXP "/usr/local/lib/perl5:/usr/local/lib/perl"
38 - incpush(PRIVLIB_EXP, TRUE, FALSE);
40 - incpush(PRIVLIB_EXP, FALSE, FALSE);
44 /* sitearch is always relative to sitelib on Windows for
45 * DLL-based path intuition to work correctly */
49 #ifdef SITELIB_STEM /* Search for version-specific dirs below here */
50 - incpush(SITELIB_STEM, FALSE, TRUE);
51 +/* incpush(SITELIB_STEM, FALSE, TRUE); */
54 #ifdef PERL_VENDORARCH_EXP
55 @@ -3749,7 +3716,40 @@
58 #ifdef PERL_VENDORLIB_STEM /* Search for version-specific dirs below here */
59 - incpush(PERL_VENDORLIB_STEM, FALSE, TRUE);
60 +/* incpush(PERL_VENDORLIB_STEM, FALSE, TRUE); */
64 + incpush(ARCHLIB_EXP, FALSE, FALSE);
66 +#ifdef MACOS_TRADITIONAL
69 + SV * privdir = NEWSV(55, 0);
70 + char * macperl = PerlEnv_getenv("MACPERL");
75 + Perl_sv_setpvf(aTHX_ privdir, "%slib:", macperl);
76 + if (PerlLIO_stat(SvPVX(privdir), &tmpstatbuf) >= 0 && S_ISDIR(tmpstatbuf.st_mode))
77 + incpush(SvPVX(privdir), TRUE, FALSE);
78 + Perl_sv_setpvf(aTHX_ privdir, "%ssite_perl:", macperl);
79 + if (PerlLIO_stat(SvPVX(privdir), &tmpstatbuf) >= 0 && S_ISDIR(tmpstatbuf.st_mode))
80 + incpush(SvPVX(privdir), TRUE, FALSE);
82 + SvREFCNT_dec(privdir);
85 + incpush(":", FALSE, FALSE);
88 +# define PRIVLIB_EXP "/usr/local/lib/perl5:/usr/local/lib/perl"
91 + incpush(PRIVLIB_EXP, TRUE, FALSE);
93 + incpush(PRIVLIB_EXP, FALSE, FALSE);
96 #ifdef PERL_OTHERLIBDIRS