1 --- perl.c~ Mon Apr 21 16:41:33 2003
2 +++ perl.c Sun May 4 16:07:42 2003
5 incpush(ARCHLIB_EXP, FALSE, FALSE, TRUE);
7 -#ifdef MACOS_TRADITIONAL
10 - SV * privdir = NEWSV(55, 0);
11 - char * macperl = PerlEnv_getenv("MACPERL");
16 - Perl_sv_setpvf(aTHX_ privdir, "%slib:", macperl);
17 - if (PerlLIO_stat(SvPVX(privdir), &tmpstatbuf) >= 0 && S_ISDIR(tmpstatbuf.st_mode))
18 - incpush(SvPVX(privdir), TRUE, FALSE, TRUE);
19 - Perl_sv_setpvf(aTHX_ privdir, "%ssite_perl:", macperl);
20 - if (PerlLIO_stat(SvPVX(privdir), &tmpstatbuf) >= 0 && S_ISDIR(tmpstatbuf.st_mode))
21 - incpush(SvPVX(privdir), TRUE, FALSE, TRUE);
23 - SvREFCNT_dec(privdir);
26 - incpush(":", FALSE, FALSE, TRUE);
29 -# define PRIVLIB_EXP "/usr/local/lib/perl5:/usr/local/lib/perl"
32 - incpush(PRIVLIB_EXP, TRUE, FALSE, TRUE);
34 - incpush(PRIVLIB_EXP, FALSE, FALSE, TRUE);
38 /* sitearch is always relative to sitelib on Windows for
42 #ifdef SITELIB_STEM /* Search for version-specific dirs below here */
43 - incpush(SITELIB_STEM, FALSE, TRUE, TRUE);
44 +/* incpush(SITELIB_STEM, FALSE, TRUE, TRUE); */
47 #ifdef PERL_VENDORARCH_EXP
48 @@ -3823,7 +3794,37 @@
51 #ifdef PERL_VENDORLIB_STEM /* Search for version-specific dirs below here */
52 - incpush(PERL_VENDORLIB_STEM, FALSE, TRUE, TRUE);
53 +/* incpush(PERL_VENDORLIB_STEM, FALSE, TRUE, TRUE); */
56 +#ifdef MACOS_TRADITIONAL
59 + SV * privdir = NEWSV(55, 0);
60 + char * macperl = PerlEnv_getenv("MACPERL");
65 + Perl_sv_setpvf(aTHX_ privdir, "%slib:", macperl);
66 + if (PerlLIO_stat(SvPVX(privdir), &tmpstatbuf) >= 0 && S_ISDIR(tmpstatbuf.st_mode))
67 + incpush(SvPVX(privdir), TRUE, FALSE, TRUE);
68 + Perl_sv_setpvf(aTHX_ privdir, "%ssite_perl:", macperl);
69 + if (PerlLIO_stat(SvPVX(privdir), &tmpstatbuf) >= 0 && S_ISDIR(tmpstatbuf.st_mode))
70 + incpush(SvPVX(privdir), TRUE, FALSE, TRUE);
72 + SvREFCNT_dec(privdir);
75 + incpush(":", FALSE, FALSE, TRUE);
78 +# define PRIVLIB_EXP "/usr/local/lib/perl5:/usr/local/lib/perl"
81 + incpush(PRIVLIB_EXP, TRUE, FALSE, TRUE);
83 + incpush(PRIVLIB_EXP, FALSE, FALSE, TRUE);
86 #ifdef PERL_OTHERLIBDIRS