summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2005-07-28 15:27:55 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2005-07-28 15:27:55 (GMT)
commit425be14f5a21104533dbeb1df9edd1bc5363b2b1 (patch)
tree7ba16447fabfdc490e4f2e994c70b93f0f086cad /generic
parenta11fa9c7b80f3d0e7ef52862e03d260647cb05ea (diff)
downloadtcl-425be14f5a21104533dbeb1df9edd1bc5363b2b1.zip
tcl-425be14f5a21104533dbeb1df9edd1bc5363b2b1.tar.gz
tcl-425be14f5a21104533dbeb1df9edd1bc5363b2b1.tar.bz2
Backport of fix for [Bug 1245953]
Diffstat (limited to 'generic')
-rw-r--r--generic/tclPipe.c10
1 files changed, 8 insertions, 2 deletions
diff --git a/generic/tclPipe.c b/generic/tclPipe.c
index 7339926..fc0e6c0 100644
--- a/generic/tclPipe.c
+++ b/generic/tclPipe.c
@@ -10,7 +10,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclPipe.c,v 1.7.2.1 2004/07/02 23:37:31 hobbs Exp $
+ * RCS: @(#) $Id: tclPipe.c,v 1.7.2.2 2005/07/28 15:27:58 dkf Exp $
*/
#include "tclInt.h"
@@ -605,7 +605,13 @@ TclCreatePipeline(interp, argc, argv, pidArrayPtr, inPipePtr,
if (*p == '>') {
p++;
atOK = 0;
- flags = O_WRONLY | O_CREAT;
+
+ /*
+ * Note that the O_APPEND flag only has an effect on POSIX
+ * platforms. On Windows, we just have to carry on regardless.
+ */
+
+ flags = O_WRONLY | O_CREAT | O_APPEND;
}
if (*p == '&') {
if (errorClose != 0) {