1 files changed, 15 insertions, 0 deletions
diff --git a/lang/tcl83/files/patch-tclUnixPipe.c b/lang/tcl83/files/patch-tclUnixPipe.c
new file mode 100644
index 000000000000..535259b7af2c
--- /dev/null
+++ b/lang/tcl83/files/patch-tclUnixPipe.c
@@ -0,0 +1,15 @@
+--- tclUnixPipe.c.orig	Wed Apr  4 00:54:39 2001
++++ tclUnixPipe.c	Thu May 10 22:00:30 2001
+@@ -195,10 +195,8 @@
+      * We should also check against making more then TMP_MAX of these.
+      */
+ 
+-    if (tmpnam(fileName) == NULL) {			/* INTL: Native. */
+-	return NULL;
+-    }
+-    fd = open(fileName, O_RDWR|O_CREAT|O_EXCL, 0666);	/* INTL: Native. */
++    strlcpy(fileName, "/var/tmp/tcltmp.XXXXXX", L_tmpnam);
++    fd = mkstemp(fileName);				/* INTL: Native. */
+     if (fd == -1) {
+ 	return NULL;
+     }