diff options
Diffstat (limited to 'lang/perl5/patches/patch-ad')
| -rw-r--r-- | lang/perl5/patches/patch-ad | 26 |
1 files changed, 4 insertions, 22 deletions
diff --git a/lang/perl5/patches/patch-ad b/lang/perl5/patches/patch-ad index e6863c22280..1fea824e9e6 100644 --- a/lang/perl5/patches/patch-ad +++ b/lang/perl5/patches/patch-ad @@ -1,24 +1,6 @@ ---- perl.h.ORIG Mon Apr 28 17:36:10 1997 -+++ perl.h Fri May 23 11:56:49 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) ---- perl5.004/perl.c.ORIG Fri May 16 00:14:03 1997 -+++ perl.c Fri May 23 11:56:49 1997 -@@ -1917,6 +1917,20 @@ +--- perl.c.BAK Wed Nov 19 23:09:31 1997 ++++ perl.c Wed Nov 19 23:10:58 1997 +@@ -2036,6 +2036,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 */ @@ -30,7 +12,7 @@ + if (fstatfs(fileno(rsfp),&stfs) < 0) + croak("Can't statfs filesystem of script \"%s\"",origfilename); + -+ if (stfs.f_flags & MNT_NOSUID) ++ if (stfs.f_flags & MNT_NOSUID) + croak("Permission denied"); + } +#endif /* IAMSUID */ |