lang/tcl84/files/patch-tclUnixSock.c


1
2
3
4
5
6
7
8
9
10
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. */