summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2013-02-20 21:20:55 +0100
committerAndy Wingo <wingo@pobox.com>2013-02-20 21:20:55 +0100
commit0e4288608896eeda4ad6f18cfe91d45be7c87c35 (patch)
treebf6fd9c9715f41edc20ca05698c1613e4bd06dde
parent90f51aba0d2b28ac4819f8800f2dcf8d67edbd28 (diff)
downloadguile-0e4288608896eeda4ad6f18cfe91d45be7c87c35.tar.gz
mkstemp uses O_BINARY
* libguile/mkstemp.c (mkstemp): Add O_BINARY. Since temp files are empty at the beginning, we're not changing the behavior for reading files. For writing files `newline' and ~% can add \r elements as needed. So this is a reasonable thing to do, and it prevents mangling of temp files for the compiler.
-rw-r--r--libguile/mkstemp.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/mkstemp.c b/libguile/mkstemp.c
index 6a573c695..a7eaf105b 100644
--- a/libguile/mkstemp.c
+++ b/libguile/mkstemp.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 1991, 1992, 1996, 1998, 2001, 2006 Free Software Foundation, Inc.
+/* Copyright (C) 1991, 1992, 1996, 1998, 2001, 2006, 2013 Free Software Foundation, Inc.
This file is derived from mkstemps.c from the GNU Libiberty Library
which in turn is derived from the GNU C Library.
@@ -112,7 +112,7 @@ mkstemp (template)
v /= 62;
XXXXXX[5] = letters[v % 62];
- fd = open (template, O_RDWR|O_CREAT|O_EXCL, 0600);
+ fd = open (template, O_RDWR|O_CREAT|O_EXCL|O_BINARY, 0600);
if (fd >= 0)
/* The file does not exist. */
return fd;