summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authorandreas_kupries <akupries@shaw.ca>2006-03-16 18:23:18 (GMT)
committerandreas_kupries <akupries@shaw.ca>2006-03-16 18:23:18 (GMT)
commit68c1d94957701240c5b06cdc75ae4a47d1a3cd7e (patch)
tree58b62966df348210cf51a6066e2b09bf37ac37ac /generic
parent278d6deed875d2e1041c37f225189680d09891bd (diff)
downloadtcl-68c1d94957701240c5b06cdc75ae4a47d1a3cd7e.zip
tcl-68c1d94957701240c5b06cdc75ae4a47d1a3cd7e.tar.gz
tcl-68c1d94957701240c5b06cdc75ae4a47d1a3cd7e.tar.bz2
* generic/tclIOUtil.c (TclGetOpenMode): Added the flag O_APPEND to
the list of POSIX modes used when opening a file for 'a'ppend. This enables the proper automatic seek-to-end-on-write by the OS. See [Bug 680143] for longer discussion. * tests/ioCmd.test (iocmd-13.7.*): Extended the testsuite to check the new handling of 'a'.
Diffstat (limited to 'generic')
-rw-r--r--generic/tclIOUtil.c8
1 files changed, 6 insertions, 2 deletions
diff --git a/generic/tclIOUtil.c b/generic/tclIOUtil.c
index 84c9161..99240e4 100644
--- a/generic/tclIOUtil.c
+++ b/generic/tclIOUtil.c
@@ -17,7 +17,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclIOUtil.c,v 1.77.2.26 2006/02/15 16:04:29 dgp Exp $
+ * RCS: @(#) $Id: tclIOUtil.c,v 1.77.2.27 2006/03/16 18:23:22 andreas_kupries Exp $
*/
#include "tclInt.h"
@@ -1567,7 +1567,11 @@ TclGetOpenMode(interp, string, seekFlagPtr)
mode = O_WRONLY|O_CREAT|O_TRUNC;
break;
case 'a':
- mode = O_WRONLY|O_CREAT;
+ /* [Bug 680143].
+ * Added O_APPEND for proper automatic
+ * seek-to-end-on-write by the OS.
+ */
+ mode = O_WRONLY|O_CREAT|O_APPEND;
*seekFlagPtr = 1;
break;
default: