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