From 9dce7ddd34b7a05a7dc9e55d8131e5e1c1734d25 Mon Sep 17 00:00:00 2001 From: markm 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/files/patch-ad | 23 ----------------------- lang/perl5/files/patch-ae | 4 ++-- 2 files changed, 2 insertions(+), 25 deletions(-) (limited to 'lang/perl5/files') diff --git a/lang/perl5/files/patch-ad b/lang/perl5/files/patch-ad index 47f99960867e..110416dab3da 100644 --- a/lang/perl5/files/patch-ad +++ b/lang/perl5/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/files/patch-ae b/lang/perl5/files/patch-ae index c701adb3382b..24dfa020a53b 100644 --- a/lang/perl5/files/patch-ae +++ b/lang/perl5/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 -- cgit