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.10/files/patch-ad | |
| parent | Add Extipl, a partition-selectable boot loader/installer which (diff) | |
Upgrade this to perl5.6.0 for _knowledgeable_ folks in STABLE who
really want it.
This is still marked FORBIDDEN as there may be all sorts of horrible
incompatabilities with the perl5 in "base", but folks who are willing
to override this and experiment are welcome.
Consider this to be only partially supported. I'll happily commit
patches and fixes, but I don't want to answer too many questions.
Sorry!
Notes
Notes:
svn path=/head/; revision=40213
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 47f99960867e..110416dab3da 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); |