From 797ed923862ee4fb5b8c673fb00803c99444a4cd Mon Sep 17 00:00:00 2001 From: Mark Murray Date: Thu, 22 Mar 2001 15:17:46 +0000 Subject: 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! --- lang/perl5.10/files/patch-ad | 23 ----------------------- 1 file changed, 23 deletions(-) (limited to 'lang/perl5.10/files/patch-ad') 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); -- cgit v1.2.3