diff options
| author | Mark Murray <markm@FreeBSD.org> | 2001-03-22 15:17:46 +0000 |
|---|---|---|
| committer | Mark Murray <markm@FreeBSD.org> | 2001-03-22 15:17:46 +0000 |
| commit | 797ed923862ee4fb5b8c673fb00803c99444a4cd (patch) | |
| tree | 125e0cda450175e54f0ab6bfa13f0614dce24d80 /lang/perl5.16/files | |
| parent | 8a0a10dc9409f634230e9023880a85af2f6cd11d (diff) | |
Notes
Diffstat (limited to 'lang/perl5.16/files')
| -rw-r--r-- | lang/perl5.16/files/patch-ad | 23 | ||||
| -rw-r--r-- | lang/perl5.16/files/patch-ae | 4 |
2 files changed, 2 insertions, 25 deletions
diff --git a/lang/perl5.16/files/patch-ad b/lang/perl5.16/files/patch-ad index 47f99960867e..110416dab3da 100644 --- a/lang/perl5.16/files/patch-ad +++ b/lang/perl5.16/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); diff --git a/lang/perl5.16/files/patch-ae b/lang/perl5.16/files/patch-ae index c701adb3382b..24dfa020a53b 100644 --- a/lang/perl5.16/files/patch-ae +++ b/lang/perl5.16/files/patch-ae @@ -1,9 +1,9 @@ --- makedepend.SH.ORIG Fri Jul 24 06:00:58 1998 +++ makedepend.SH Thu Jul 30 17:08:37 1998 -@@ -67,6 +67,7 @@ - # to be out of date. I don't know if OS/2 has touch, so do this: +@@ -68,6 +68,7 @@ case "$osname" in os2) ;; + netbsd) ;; + freebsd) ;; *) $touch $firstmakefile ;; esac |