- patch to use mkstemp instead of tmpnam

Submitted by:	mi@aldan.algebra.com (Mikhail Teterin)

1 files changed, 17 insertions, 0 deletions

diff --git a/lang/tcl84/files/patch-tmpnam b/lang/tcl84/files/patch-tmpnam
new file mode 100644
index 0000000..ef53561
--- /dev/null
+++ b/lang/tcl84/files/patch-tmpnam
@@ -0,0 +1,17 @@
+--- tclUnixPipe.c	Tue Apr  3 18:54:39 2001
++++ tclUnixPipe.c	Sat Apr 28 12:41:46 2001
+@@ -193,13 +193,10 @@
+     /*
+      * Linux says we should use mkstemp, but Solaris prefers tmpnam.
+      * 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. */
++    fd = mkstemp(fileName);				/* INTL: Native. */
+     if (fd == -1) {
+ 	return NULL;
+     }
+     fcntl(fd, F_SETFD, FD_CLOEXEC);