1 files changed, 13 insertions, 0 deletions
diff --git a/lang/tcl82/files/patch-tclUnixPipe.c b/lang/tcl82/files/patch-tclUnixPipe.c
new file mode 100644
index 000000000000..1d9c0be1e0fa
--- /dev/null
+++ b/lang/tcl82/files/patch-tclUnixPipe.c
@@ -0,0 +1,13 @@
+--- tclUnixPipe.c.orig	Tue Nov 30 09:43:03 1999
++++ tclUnixPipe.c	Wed Nov 14 09:09:20 2001
+@@ -185,8 +185,8 @@
+     char fileName[L_tmpnam];
+     int fd;
+ 
+-    tmpnam(fileName);					/* INTL: Native. */
+-    fd = open(fileName, O_RDWR|O_CREAT|O_TRUNC, 0666);	/* INTL: Native. */
++    strlcpy(fileName, "/var/tmp/tcltmp.XXXXXX", L_tmpnam);
++    fd = mkstemp(fileName);				/* INTL: Native. */
+     if (fd == -1) {
+ 	return NULL;
+     }