41 lines
1.5 KiB
Diff
41 lines
1.5 KiB
Diff
|
--- perl-5.8.3/perl.c.fullinc 2004-02-15 10:39:38.947636711 -0500
|
||
|
|
+++ perl-5.8.3/perl.c 2004-02-15 10:40:27.399370941 -0500
|
||
|
|
@@ -4163,23 +4163,17 @@
|
||
|
|
libdir,
|
||
|
|
(int)PERL_REVISION, (int)PERL_VERSION,
|
||
|
|
(int)PERL_SUBVERSION, ARCHNAME);
|
||
|
|
- if (PerlLIO_stat(SvPVX(subdir), &tmpstatbuf) >= 0 &&
|
||
|
|
- S_ISDIR(tmpstatbuf.st_mode))
|
||
|
|
- av_push(GvAVn(PL_incgv), newSVsv(subdir));
|
||
|
|
+ av_push(GvAVn(PL_incgv), newSVsv(subdir));
|
||
|
|
|
||
|
|
/* .../version if -d .../version */
|
||
|
|
Perl_sv_setpvf(aTHX_ subdir, "%"SVf PERL_ARCH_FMT_PATH, libdir,
|
||
|
|
(int)PERL_REVISION, (int)PERL_VERSION,
|
||
|
|
(int)PERL_SUBVERSION);
|
||
|
|
- if (PerlLIO_stat(SvPVX(subdir), &tmpstatbuf) >= 0 &&
|
||
|
|
- S_ISDIR(tmpstatbuf.st_mode))
|
||
|
|
- av_push(GvAVn(PL_incgv), newSVsv(subdir));
|
||
|
|
+ av_push(GvAVn(PL_incgv), newSVsv(subdir));
|
||
|
|
|
||
|
|
/* .../archname if -d .../archname */
|
||
|
|
Perl_sv_setpvf(aTHX_ subdir, "%"SVf PERL_ARCH_FMT, libdir, ARCHNAME);
|
||
|
|
- if (PerlLIO_stat(SvPVX(subdir), &tmpstatbuf) >= 0 &&
|
||
|
|
- S_ISDIR(tmpstatbuf.st_mode))
|
||
|
|
- av_push(GvAVn(PL_incgv), newSVsv(subdir));
|
||
|
|
+ av_push(GvAVn(PL_incgv), newSVsv(subdir));
|
||
|
|
}
|
||
|
|
|
||
|
|
#ifdef PERL_INC_VERSION_LIST
|
||
|
|
@@ -4187,9 +4181,7 @@
|
||
|
|
for (incver = incverlist; *incver; incver++) {
|
||
|
|
/* .../xxx if -d .../xxx */
|
||
|
|
Perl_sv_setpvf(aTHX_ subdir, "%"SVf PERL_ARCH_FMT, libdir, *incver);
|
||
|
|
- if (PerlLIO_stat(SvPVX(subdir), &tmpstatbuf) >= 0 &&
|
||
|
|
- S_ISDIR(tmpstatbuf.st_mode))
|
||
|
|
- av_push(GvAVn(PL_incgv), newSVsv(subdir));
|
||
|
|
+ av_push(GvAVn(PL_incgv), newSVsv(subdir));
|
||
|
|
}
|
||
|
|
}
|
||
|
|
#endif
|