Tcl Source Code: Artifact [13ebb2e066]

Artifact 13ebb2e066c4ee34a7823cb7bf6c68ccbd00cf6e:

Attachment "None" to ticket [402924ffff] added by rmax 2000-12-19 21:52:45.

--- unix/tclUnixPipe.c
+++ unix/tclUnixPipe.c  2000/12/19 12:55:59
@@ -189,7 +189,7 @@
     if (tmpnam(fileName) == NULL) {                    /* INTL: Native. */
        return NULL;
     }
-    fd = open(fileName, O_RDWR|O_CREAT|O_TRUNC, 0666); /* INTL: Native. */
+    fd = open(fileName, O_RDWR|O_CREAT|O_EXCL, 0666);  /* INTL: Native. */
     if (fd == -1) {
        return NULL;
     }