1 --- perl-5.8.1/perl.c.orig Fri Aug 22 12:30:22 2003
2 +++ perl-5.8.1/perl.c Fri Aug 22 12:32:51 2003
4 incpush(APPLLIB_EXP, TRUE, TRUE, TRUE);
8 - incpush(ARCHLIB_EXP, FALSE, FALSE, TRUE);
10 -#ifdef MACOS_TRADITIONAL
13 - SV * privdir = NEWSV(55, 0);
14 - char * macperl = PerlEnv_getenv("MACPERL");
19 - Perl_sv_setpvf(aTHX_ privdir, "%slib:", macperl);
20 - if (PerlLIO_stat(SvPVX(privdir), &tmpstatbuf) >= 0 && S_ISDIR(tmpstatbuf.st_mode))
21 - incpush(SvPVX(privdir), TRUE, FALSE, TRUE);
22 - Perl_sv_setpvf(aTHX_ privdir, "%ssite_perl:", macperl);
23 - if (PerlLIO_stat(SvPVX(privdir), &tmpstatbuf) >= 0 && S_ISDIR(tmpstatbuf.st_mode))
24 - incpush(SvPVX(privdir), TRUE, FALSE, TRUE);
26 - SvREFCNT_dec(privdir);
29 - incpush(":", FALSE, FALSE, TRUE);
32 -# define PRIVLIB_EXP "/usr/local/lib/perl5:/usr/local/lib/perl"
35 - incpush(PRIVLIB_EXP, TRUE, FALSE, TRUE);
37 - incpush(PRIVLIB_EXP, FALSE, FALSE, TRUE);
41 /* sitearch is always relative to sitelib on Windows for
42 * DLL-based path intuition to work correctly */
46 #ifdef SITELIB_STEM /* Search for version-specific dirs below here */
47 - incpush(SITELIB_STEM, FALSE, TRUE, TRUE);
48 +/* incpush(SITELIB_STEM, FALSE, TRUE, TRUE); */
51 #ifdef PERL_VENDORARCH_EXP
52 @@ -4008,7 +3975,40 @@
55 #ifdef PERL_VENDORLIB_STEM /* Search for version-specific dirs below here */
56 - incpush(PERL_VENDORLIB_STEM, FALSE, TRUE, TRUE);
57 +/* incpush(PERL_VENDORLIB_STEM, FALSE, TRUE, TRUE); */
61 + incpush(ARCHLIB_EXP, FALSE, FALSE, TRUE);
63 +#ifdef MACOS_TRADITIONAL
66 + SV * privdir = NEWSV(55, 0);
67 + char * macperl = PerlEnv_getenv("MACPERL");
72 + Perl_sv_setpvf(aTHX_ privdir, "%slib:", macperl);
73 + if (PerlLIO_stat(SvPVX(privdir), &tmpstatbuf) >= 0 && S_ISDIR(tmpstatbuf.st_mode))
74 + incpush(SvPVX(privdir), TRUE, FALSE, TRUE);
75 + Perl_sv_setpvf(aTHX_ privdir, "%ssite_perl:", macperl);
76 + if (PerlLIO_stat(SvPVX(privdir), &tmpstatbuf) >= 0 && S_ISDIR(tmpstatbuf.st_mode))
77 + incpush(SvPVX(privdir), TRUE, FALSE, TRUE);
79 + SvREFCNT_dec(privdir);
82 + incpush(":", FALSE, FALSE, TRUE);
85 +# define PRIVLIB_EXP "/usr/local/lib/perl5:/usr/local/lib/perl"
88 + incpush(PRIVLIB_EXP, TRUE, FALSE, TRUE);
90 + incpush(PRIVLIB_EXP, FALSE, FALSE, TRUE);
93 #ifdef PERL_OTHERLIBDIRS