summaryrefslogtreecommitdiff
path: root/lang/tcl82/files
diff options
context:
space:
mode:
authorDirk Meyer <dinoex@FreeBSD.org>2001-11-14 08:44:08 +0000
committerDirk Meyer <dinoex@FreeBSD.org>2001-11-14 08:44:08 +0000
commit3b37e7ae6b65c313bdcf0bb4343fb2f1dd3277b5 (patch)
tree4800156433f53a39d84d618bcc4a50854449e8ea /lang/tcl82/files
parentadd py-optik (diff)
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
Notes
Notes: svn path=/head/; revision=50010
Diffstat (limited to 'lang/tcl82/files')
-rw-r--r--lang/tcl82/files/patch-tclUnixPipe.c13
-rw-r--r--lang/tcl82/files/patch-tclUnixSock.c11
2 files changed, 24 insertions, 0 deletions
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;
+ }
diff --git a/lang/tcl82/files/patch-tclUnixSock.c b/lang/tcl82/files/patch-tclUnixSock.c
new file mode 100644
index 000000000000..44f7e59d6789
--- /dev/null
+++ b/lang/tcl82/files/patch-tclUnixSock.c
@@ -0,0 +1,11 @@
+--- tclUnixSock.c.orig Fri Apr 16 02:48:05 1999
++++ tclUnixSock.c Wed Nov 14 09:25:20 2001
+@@ -80,7 +80,7 @@
+ }
+
+ native = NULL;
+-#ifndef NO_UNAME
++#if 0
+ (VOID *) memset((VOID *) &u, (int) 0, sizeof(struct utsname));
+ if (uname(&u) > -1) { /* INTL: Native. */
+ hp = gethostbyname(u.nodename); /* INTL: Native. */