X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fdata%2Ffile-name.c;h=cfe91932414e0c4bec928c89cb6efebd043f93ae;hb=4e30d33a680cceb0ac2ee3e78c94fdeb46ab2fcd;hp=23d7ee0889f2c75460e8d479eb177b7acc2f75d9;hpb=577c6ac9b93c494efdabc324365ec70a43f6d742;p=pspp-builds.git

diff --git a/src/data/file-name.c b/src/data/file-name.c
index 23d7ee08..cfe91932 100644
--- a/src/data/file-name.c
+++ b/src/data/file-name.c
@@ -267,7 +267,7 @@ fn_open (const char *fn, const char *mode)
       if (get_safer_mode ())
 	return safety_violation (fn);
 
-      return popen (&fn[1], mode);
+      return popen (&fn[1], mode[0] == 'r' ? "r" : "w");
     }
   else if (*fn && fn[strlen (fn) - 1] == '|')
     {
@@ -281,7 +281,7 @@ fn_open (const char *fn, const char *mode)
       memcpy (s, fn, strlen (fn) - 1);
       s[strlen (fn) - 1] = 0;
 
-      f = popen (s, mode);
+      f = popen (s, mode[0] == 'r' ? "r" : "w");
 
       local_free (s);