From 3b37e7ae6b65c313bdcf0bb4343fb2f1dd3277b5 Mon Sep 17 00:00:00 2001 From: Dirk Meyer Date: Wed, 14 Nov 2001 08:44:08 +0000 Subject: Tcl will get hostname using uname(3). It seems FreeBSD's uname(3) returns only 31 letters by /usr/include/sys/utsname.h. Problem was that configure detects uname(3) and uses uname(3) in the hostname-function, while gethostname gives more (=longer) information. keep uname around, as it is be used in TclpSetVariables. took maintainership 8.2 apply a fix for unsafe tempfile handling from 8.3 PR: 18896 Submitted by: yoshint@flab.fujitsu.co.jp --- lang/tcl82/files/patch-tclUnixPipe.c | 13 +++++++++++++ 1 file changed, 13 insertions(+) create mode 100644 lang/tcl82/files/patch-tclUnixPipe.c (limited to 'lang/tcl82/files/patch-tclUnixPipe.c') 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; + } -- cgit v1.2.3