1
0
mirror of https://git.FreeBSD.org/ports.git synced 2024-10-27 21:29:02 +00:00
freebsd-ports/lang/tcl84/files/patch-tmpnam
2001-05-10 20:13:56 +00:00

16 lines
506 B
Plaintext

--- 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;
}