- patch to use mkstemp instead of tmpnam

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

2 files changed, 18 insertions, 0 deletions

diff --git a/lang/tcl83/Makefile b/lang/tcl83/Makefile
index ae4b3b10e87a..9d4b733635ff 100644
--- a/lang/tcl83/Makefile
+++ b/lang/tcl83/Makefile
@@ -7,6 +7,7 @@
 
 PORTNAME=	tcl
 PORTVERSION=	8.3.3
+PORTREVISION=	1
 CATEGORIES=	lang tcl83
 MASTER_SITES=	${MASTER_SITE_TCLTK}
 MASTER_SITE_SUBDIR=	tcl8_3
diff --git a/lang/tcl83/files/patch-tmpnam b/lang/tcl83/files/patch-tmpnam
new file mode 100644
index 000000000000..ef535617fe5d
--- /dev/null
+++ b/lang/tcl83/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);