diff options
Diffstat (limited to 'lang/perl5.12/files/patch-ae')
-rw-r--r-- | lang/perl5.12/files/patch-ae | 42 |
1 files changed, 0 insertions, 42 deletions
diff --git a/lang/perl5.12/files/patch-ae b/lang/perl5.12/files/patch-ae deleted file mode 100644 index 01e5a89ca562..000000000000 --- a/lang/perl5.12/files/patch-ae +++ /dev/null @@ -1,42 +0,0 @@ ---- perl.h.old Tue May 6 12:22:21 1997 -+++ perl.h Tue May 6 12:26:50 1997 -@@ -223,6 +223,15 @@ - # include <sys/param.h> - #endif - -+/* needed for IAMSUID case for 4.4BSD systems -+ * XXX there should probably be a Configure variable -+ */ -+ -+#ifdef I_SYS_PARAM -+#if (defined (BSD) && (BSD >= 199306)) -+# include <sys/mount.h> -+#endif /* !BSD */ -+#endif /* !I_SYS_PARAM */ - - /* Use all the "standard" definitions? */ - #if defined(STANDARD_C) && defined(I_STDLIB) ---- perl.c.old Sun Apr 27 15:04:13 1997 -+++ perl.c Tue May 6 12:27:40 1997 -@@ -1912,6 +1912,20 @@ - croak("Can't swap uid and euid"); /* really paranoid */ - if (Stat(SvPVX(GvSV(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(rsfp),&stfs) < 0) -+ croak("Can't statfs filesystem of script \"%s\"",origfilename); -+ -+ if (stfs.f_flags & MNT_NOSUID) -+ croak("Permission denied"); -+ } -+#endif /* IAMSUID */ -+#endif /* BSD */ -+ - if (tmpstatbuf.st_dev != statbuf.st_dev || - tmpstatbuf.st_ino != statbuf.st_ino) { - (void)PerlIO_close(rsfp); - |