diff options
Diffstat (limited to 'lang/perl5.10/files/patch-ad')
| -rw-r--r-- | lang/perl5.10/files/patch-ad | 23 |
1 files changed, 0 insertions, 23 deletions
diff --git a/lang/perl5.10/files/patch-ad b/lang/perl5.10/files/patch-ad index 47f9996..110416d 100644 --- a/lang/perl5.10/files/patch-ad +++ b/lang/perl5.10/files/patch-ad @@ -16,26 +16,3 @@ /* Use all the "standard" definitions? */ #if defined(STANDARD_C) && defined(I_STDLIB) ---- perl.c.ORIG Thu Jul 30 17:04:23 1998 -+++ perl.c Thu Jul 30 17:04:57 1998 -@@ -2124,6 +2124,20 @@ - croak("Can't swap uid and euid"); /* really paranoid */ - if (PerlLIO_stat(SvPVX(GvSV(PL_curcop->cop_filegv)),&tmpstatbuf) < 0) - croak("Permission denied"); /* testing full pathname here */ -+#if (defined(BSD) && (BSD >= 199306)) -+#ifdef IAMSUID -+ { -+ struct statfs stfs; -+ -+ if (fstatfs(fileno(PL_rsfp),&stfs) < 0) -+ croak("Can't statfs filesystem of script \"%s\"",PL_origfilename); -+ -+ if (stfs.f_flags & MNT_NOSUID) -+ croak("Permission denied"); -+ } -+#endif /* IAMSUID */ -+#endif /* BSD */ -+ - if (tmpstatbuf.st_dev != PL_statbuf.st_dev || - tmpstatbuf.st_ino != PL_statbuf.st_ino) { - (void)PerlIO_close(PL_rsfp); |
