By default, don't allow opened file handles to be inherited by

inferior processes.

diff --git a/v7/src/microcode/os2file.c b/v7/src/microcode/os2file.c
index 495a2c5f97d535074fca3566b24f819ceb079c97..d7511e89910977f4f53c421ff4b11a7216bc1eb0 100644 (file)
--- a/v7/src/microcode/os2file.c
+++ b/v7/src/microcode/os2file.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Id: os2file.c,v 1.1 1994/11/28 03:42:57 cph Exp $
+$Id: os2file.c,v 1.2 1995/02/14 00:20:06 cph Exp $
 
-Copyright (c) 1994 Massachusetts Institute of Technology
+Copyright (c) 1994-95 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -38,11 +38,12 @@ MIT in each case. */
 static ULONG set_file_pointer (Tchannel, ULONG, LONG);
 
 #define OS2_OPEN_MODE(m)                                               \
-  ((((m) & CHANNEL_READ) == 0)                                         \
-   ? (OPEN_ACCESS_WRITEONLY | OPEN_SHARE_DENYWRITE)                    \
-   : (((m) & CHANNEL_WRITE) == 0)                                      \
-   ? (OPEN_ACCESS_READONLY  | OPEN_SHARE_DENYNONE)                     \
-   : (OPEN_ACCESS_READWRITE | OPEN_SHARE_DENYWRITE))
+  (((((m) & CHANNEL_READ) == 0)                                                \
+    ? (OPEN_ACCESS_WRITEONLY | OPEN_SHARE_DENYWRITE)                   \
+    : (((m) & CHANNEL_WRITE) == 0)                                     \
+    ? (OPEN_ACCESS_READONLY  | OPEN_SHARE_DENYNONE)                    \
+    : (OPEN_ACCESS_READWRITE | OPEN_SHARE_DENYWRITE))                  \
+   | OPEN_FLAGS_NOINHERIT)
 \f
 static Tchannel
 open_file (const char * filename, ULONG attr, ULONG flags, unsigned int mode)