# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 769840608 0
# Node ID 4767bfeb097d33d71b5828d9246cfcf993f3330e
# Parent  947d24fefd9edec0d8dcee75f90fa63e4a94ab1e
(openp): Don't use O_RDONLY.

diff -r 947d24fefd9e -r 4767bfeb097d src/lread.c
--- a/src/lread.c	Wed May 25 03:59:06 1994 +0000
+++ b/src/lread.c	Wed May 25 04:36:48 1994 +0000
@@ -562,7 +562,7 @@
 	      if (exec_only)
 		fd = (access (fn, X_OK) == 0) ? 1 : -1;
 	      else
-		fd = open (fn, O_RDONLY, 0);
+		fd = open (fn, 0, 0);
 
 	      if (fd >= 0)
 		{