diff options
author | Andy Wingo <wingo@pobox.com> | 2013-02-20 21:20:55 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2013-02-20 21:20:55 +0100 |
commit | 0e4288608896eeda4ad6f18cfe91d45be7c87c35 (patch) | |
tree | bf6fd9c9715f41edc20ca05698c1613e4bd06dde | |
parent | 90f51aba0d2b28ac4819f8800f2dcf8d67edbd28 (diff) | |
download | guile-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.c | 4 |
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; |