summaryrefslogtreecommitdiff
path: root/lang/perl5.6/files/patch-ad
blob: 47f99960867e0d620dbeb8306bfca474f48676f2 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
--- 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);