mirror/freebsd-ports
1
0
Fork 0
mirror of https://git.FreeBSD.org/ports.git synced 2024-11-23 00:43:28 +00:00
Code Issues Releases Activity

Tcl will get hostname using uname(3). It seems FreeBSD's uname(3)

Browse Source 
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
This commit is contained in:
Dirk Meyer 2001-11-14 08:44:08 +00:00
parent 0b7d463834
commit 3b37e7ae6b
Notes: svn2git 2021-03-31 03:12:20 +00:00 
svn path=/head/; revision=50010
11 changed files with 80 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lang/tcl82/Makefile
View File

@ -7,11 +7,12 @@
PORTNAME= tcl
PORTVERSION= 8.2.3
PORTREVISION= 1
CATEGORIES= lang tcl82
MASTER_SITES= ftp://ftp.scriptics.com/pub/tcl/tcl8_2/
DISTNAME= tcl8.2.3
MAINTAINER= ports@FreeBSD.org
MAINTAINER= dinoex@FreeBSD.org
NO_LATEST_LINK= yes
WRKSRC= ${WRKDIR}/${DISTNAME}/unix

13
lang/tcl82/files/patch-tclUnixPipe.c Normal file
View File

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

11
lang/tcl82/files/patch-tclUnixSock.c Normal file
View File

@ -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. */

2
lang/tcl83/Makefile
View File

@ -7,7 +7,7 @@
PORTNAME= tcl
PORTVERSION= 8.3.4
PORTREVISION= 2
PORTREVISION= 3
CATEGORIES= lang tcl83
MASTER_SITES= ${MASTER_SITE_SOURCEFORGE}
MASTER_SITE_SUBDIR= tcl

15
lang/tcl83/files/patch-tclUnixPipe.c Normal file
View File

@ -0,0 +1,15 @@
--- 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;
}

11
lang/tcl83/files/patch-tclUnixSock.c Normal file
View File

@ -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. */

15
lang/tcl83/files/patch-tmpnam
View File

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

2
lang/tcl84/Makefile
View File

@ -7,7 +7,7 @@
PORTNAME= tcl
PORTVERSION= 8.3.4
PORTREVISION= 2
PORTREVISION= 3
CATEGORIES= lang tcl83
MASTER_SITES= ${MASTER_SITE_SOURCEFORGE}
MASTER_SITE_SUBDIR= tcl

15
lang/tcl84/files/patch-tclUnixPipe.c Normal file
View File

@ -0,0 +1,15 @@
--- 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;
}

11
lang/tcl84/files/patch-tclUnixSock.c Normal file
View File

@ -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. */

15
lang/tcl84/files/patch-tmpnam
View File

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