From eb83bf86a0eaf06f2adc62c19321650f48ecc87c Mon Sep 17 00:00:00 2001
From: Bill Joy <wnj@ucbvax.Berkeley.EDU>
Date: Tue, 3 Feb 1981 22:39:00 -0800
Subject: [PATCH] fix to ptrace() found by kipp

SCCS-vsn: sys/kern/kern_proc.c 4.5
---
 usr/src/sys/kern/kern_proc.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/usr/src/sys/kern/kern_proc.c b/usr/src/sys/kern/kern_proc.c
index b985dca248..4497220bc6 100644
--- a/usr/src/sys/kern/kern_proc.c
+++ b/usr/src/sys/kern/kern_proc.c
@@ -1,4 +1,4 @@
-/*	kern_proc.c	4.4	%G%	*/
+/*	kern_proc.c	4.5	%G%	*/
 
 #include "../h/param.h"
 #include "../h/systm.h"
@@ -66,6 +66,8 @@ exece()
   again:
 	if(access(ip, IEXEC))
 		goto bad;
+	if((u.u_procp->p_flag&STRC) && access(ip, IREAD))
+		goto bad;
 	if((ip->i_mode & IFMT) != IFREG ||
 	   (ip->i_mode & (IEXEC|(IEXEC>>3)|(IEXEC>>6))) == 0) {
 		u.u_error = EACCES;
-- 
2.20.1