diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-08 06:59:55 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-08 06:59:55 +0000 |
| commit | 4b03c463062e98b705eba8e55aae59fb6286f5ca (patch) | |
| tree | c86c34049ac38bd0eaa54b602c2bb54c0843fe53 /perl.c | |
| parent | 18dc9f6c8b4dc15827a86a524440ffa2604f9f72 (diff) | |
| download | perl-4b03c463062e98b705eba8e55aae59fb6286f5ca.tar.gz | |
Windows has a somewhat different sitelib layout, and needs
$sitelib/archname added as well
p4raw-id: //depot/perl@5037
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 10 |
1 files changed, 10 insertions, 0 deletions
@@ -3119,6 +3119,9 @@ S_init_perllib(pTHX) incpush(PRIVLIB_EXP, FALSE); #endif +#if defined(WIN32) + incpush(SITELIB_EXP, TRUE); /* XXX Win32 needs inc_version_list support */ +#else #ifdef SITELIB_EXP { char *path = SITELIB_EXP; @@ -3132,6 +3135,7 @@ S_init_perllib(pTHX) } } #endif +#endif #if defined(PERL_VENDORLIB_EXP) #if defined(WIN32) incpush(PERL_VENDORLIB_EXP, TRUE); @@ -3231,6 +3235,12 @@ S_incpush(pTHX_ char *p, int addsubdirs) S_ISDIR(tmpstatbuf.st_mode)) av_push(GvAVn(PL_incgv), newSVsv(subdir)); + /* .../archname if -d .../archname */ + Perl_sv_setpvf(aTHX_ subdir, "%"SVf"/%s", libdir, ARCHNAME); + if (PerlLIO_stat(SvPVX(subdir), &tmpstatbuf) >= 0 && + S_ISDIR(tmpstatbuf.st_mode)) + av_push(GvAVn(PL_incgv), newSVsv(subdir)); + #ifdef PERL_INC_VERSION_LIST for (incver = incverlist; *incver; incver++) { /* .../xxx if -d .../xxx */ |