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/tcl84/files/patch-tmpnam | 15 --------------- 1 file changed, 15 deletions(-) (limited to 'lang/tcl84/files/patch-tmpnam') diff --git a/lang/tcl84/files/patch-tmpnam b/lang/tcl84/files/patch-tmpnam index 535259b7af2c..e69de29bb2d1 100644 --- a/lang/tcl84/files/patch-tmpnam +++ b/lang/tcl84/files/patch-tmpnam @@ -1,15 +0,0 @@ ---- 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; - } -- cgit v1.2.3