]>
Commit | Line | Data |
---|---|---|
b84f5e28 AM |
1 | diff -urN perl-5.10.0.org/perl.c perl-5.10.0/perl.c |
2 | --- perl-5.10.0.org/perl.c 2007-12-18 11:47:08.000000000 +0100 | |
3 | +++ perl-5.10.0/perl.c 2008-01-09 14:12:15.921155066 +0100 | |
4 | @@ -4753,39 +4753,6 @@ | |
5 | incpush(APPLLIB_EXP, TRUE, TRUE, TRUE, TRUE); | |
642838fa | 6 | #endif |
3677dc59 | 7 | |
8 | -#ifdef ARCHLIB_EXP | |
b84f5e28 | 9 | - incpush(ARCHLIB_EXP, FALSE, FALSE, TRUE, TRUE); |
3677dc59 | 10 | -#endif |
642838fa | 11 | -#ifdef MACOS_TRADITIONAL |
12 | - { | |
13 | - Stat_t tmpstatbuf; | |
b84f5e28 | 14 | - SV * privdir = newSV(0); |
642838fa | 15 | - char * macperl = PerlEnv_getenv("MACPERL"); |
16 | - | |
17 | - if (!macperl) | |
18 | - macperl = ""; | |
19 | - | |
20 | - Perl_sv_setpvf(aTHX_ privdir, "%slib:", macperl); | |
21 | - if (PerlLIO_stat(SvPVX(privdir), &tmpstatbuf) >= 0 && S_ISDIR(tmpstatbuf.st_mode)) | |
b84f5e28 | 22 | - incpush(SvPVX(privdir), TRUE, FALSE, TRUE, FALSE); |
642838fa | 23 | - Perl_sv_setpvf(aTHX_ privdir, "%ssite_perl:", macperl); |
24 | - if (PerlLIO_stat(SvPVX(privdir), &tmpstatbuf) >= 0 && S_ISDIR(tmpstatbuf.st_mode)) | |
b84f5e28 | 25 | - incpush(SvPVX(privdir), TRUE, FALSE, TRUE, FALSE); |
642838fa | 26 | - |
27 | - SvREFCNT_dec(privdir); | |
28 | - } | |
29 | - if (!PL_tainting) | |
b84f5e28 | 30 | - incpush(":", FALSE, FALSE, TRUE, FALSE); |
642838fa | 31 | -#else |
32 | -#ifndef PRIVLIB_EXP | |
33 | -# define PRIVLIB_EXP "/usr/local/lib/perl5:/usr/local/lib/perl" | |
34 | -#endif | |
35 | -#if defined(WIN32) | |
b84f5e28 | 36 | - incpush(PRIVLIB_EXP, TRUE, FALSE, TRUE, TRUE); |
642838fa | 37 | -#else |
b84f5e28 | 38 | - incpush(PRIVLIB_EXP, FALSE, FALSE, TRUE, TRUE); |
642838fa | 39 | -#endif |
3677dc59 | 40 | - |
642838fa | 41 | #ifdef SITEARCH_EXP |
42 | /* sitearch is always relative to sitelib on Windows for | |
3677dc59 | 43 | * DLL-based path intuition to work correctly */ |
b84f5e28 | 44 | @@ -4805,7 +4772,7 @@ |
642838fa | 45 | |
b84f5e28 AM |
46 | #if defined(SITELIB_STEM) && defined(PERL_INC_VERSION_LIST) |
47 | /* Search for version-specific dirs below here */ | |
48 | - incpush(SITELIB_STEM, FALSE, TRUE, TRUE, TRUE); | |
49 | + /* incpush(SITELIB_STEM, FALSE, TRUE, TRUE, TRUE); */ | |
642838fa | 50 | #endif |
51 | ||
52 | #ifdef PERL_VENDORARCH_EXP | |
b84f5e28 | 53 | @@ -4825,7 +4792,40 @@ |
642838fa | 54 | #endif |
55 | ||
56 | #ifdef PERL_VENDORLIB_STEM /* Search for version-specific dirs below here */ | |
b84f5e28 AM |
57 | - incpush(PERL_VENDORLIB_STEM, FALSE, TRUE, TRUE, TRUE); |
58 | +/* incpush(PERL_VENDORLIB_STEM, FALSE, TRUE, TRUE, TRUE); */ | |
642838fa | 59 | +#endif |
60 | + | |
3677dc59 | 61 | +#ifdef ARCHLIB_EXP |
752d039d | 62 | + incpush(ARCHLIB_EXP, FALSE, FALSE, TRUE, TRUE); |
3677dc59 | 63 | +#endif |
642838fa | 64 | +#ifdef MACOS_TRADITIONAL |
65 | + { | |
66 | + Stat_t tmpstatbuf; | |
b84f5e28 | 67 | + SV * privdir = NEWSV(55, 0); |
642838fa | 68 | + char * macperl = PerlEnv_getenv("MACPERL"); |
b84f5e28 | 69 | + |
642838fa | 70 | + if (!macperl) |
71 | + macperl = ""; | |
b84f5e28 | 72 | + |
642838fa | 73 | + Perl_sv_setpvf(aTHX_ privdir, "%slib:", macperl); |
74 | + if (PerlLIO_stat(SvPVX(privdir), &tmpstatbuf) >= 0 && S_ISDIR(tmpstatbuf.st_mode)) | |
752d039d | 75 | + incpush(SvPVX(privdir), TRUE, FALSE, TRUE, FALSE); |
642838fa | 76 | + Perl_sv_setpvf(aTHX_ privdir, "%ssite_perl:", macperl); |
77 | + if (PerlLIO_stat(SvPVX(privdir), &tmpstatbuf) >= 0 && S_ISDIR(tmpstatbuf.st_mode)) | |
752d039d | 78 | + incpush(SvPVX(privdir), TRUE, FALSE, TRUE, FALSE); |
b84f5e28 AM |
79 | + |
80 | + SvREFCNT_dec(privdir); | |
642838fa | 81 | + } |
82 | + if (!PL_tainting) | |
752d039d | 83 | + incpush(":", FALSE, FALSE, TRUE, FALSE); |
642838fa | 84 | +#else |
85 | +#ifndef PRIVLIB_EXP | |
86 | +# define PRIVLIB_EXP "/usr/local/lib/perl5:/usr/local/lib/perl" | |
87 | +#endif | |
88 | +#if defined(WIN32) | |
752d039d | 89 | + incpush(PRIVLIB_EXP, TRUE, FALSE, TRUE, TRUE); |
642838fa | 90 | +#else |
752d039d | 91 | + incpush(PRIVLIB_EXP, FALSE, FALSE, TRUE, TRUE); |
642838fa | 92 | #endif |
93 | ||
94 | #ifdef PERL_OTHERLIBDIRS |