diff options
author | cvs2svn <cvs2svn@FreeBSD.org> | 2000-06-18 10:00:08 +0000 |
---|---|---|
committer | cvs2svn <cvs2svn@FreeBSD.org> | 2000-06-18 10:00:08 +0000 |
commit | e497906508084a5501f27a53a8ec0f23aa446e5b (patch) | |
tree | 152d32d807e92b14ac8ade604a4d650b637b1e93 /lang/perl5.16/files/patch-ad | |
parent | A new index, with 3,403 ports, which is a nice number, being 41 times (diff) |
This commit was manufactured by cvs2svn to create tag 'RELEASE_3_5_0'.release/3.5.0
Notes
Notes:
svn path=/head/; revision=29673
svn path=/tags/RELEASE_3_5_0/; revision=29674; tag=release/3.5.0
Diffstat (limited to 'lang/perl5.16/files/patch-ad')
-rw-r--r-- | lang/perl5.16/files/patch-ad | 41 |
1 files changed, 0 insertions, 41 deletions
diff --git a/lang/perl5.16/files/patch-ad b/lang/perl5.16/files/patch-ad deleted file mode 100644 index 47f99960867e..000000000000 --- a/lang/perl5.16/files/patch-ad +++ /dev/null @@ -1,41 +0,0 @@ ---- perl.h.ORIG Thu Jul 30 17:04:42 1998 -+++ perl.h Thu Jul 30 17:06:34 1998 -@@ -361,6 +361,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.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); |