Index: head/lang/tcl84/files/patch-tclUnixChan.c
===================================================================
--- head/lang/tcl84/files/patch-tclUnixChan.c	(revision 160779)
+++ head/lang/tcl84/files/patch-tclUnixChan.c	(nonexistent)
@@ -1,12 +0,0 @@
---- tclUnixChan.c.org	Wed Feb 25 16:54:52 2004
-+++ tclUnixChan.c	Mon Jun 28 13:57:18 2004
-@@ -1787,7 +1787,8 @@
-     }
-     fd = TclOSopen(native, mode, permissions);
- #ifdef SUPPORTS_TTY
--    ctl_tty = (strcmp (native, "/dev/tty") == 0);
-+    ctl_tty = (strcmp (native, "/dev/tty") == 0) ||
-+	    (strcmp (native, "/dev/cua") == 0);
- #endif /* SUPPORTS_TTY */
- 
-     if (fd < 0) {

Property changes on: head/lang/tcl84/files/patch-tclUnixChan.c
___________________________________________________________________
Deleted: cvs2svn:cvs-rev
## -1 +0,0 ##
-1.1
\ No newline at end of property
Deleted: fbsd:nokeywords
## -1 +0,0 ##
-yes
\ No newline at end of property
Index: head/lang/tcl84/files/patch-tclUnixSock.c
===================================================================
--- head/lang/tcl84/files/patch-tclUnixSock.c	(revision 160779)
+++ head/lang/tcl84/files/patch-tclUnixSock.c	(nonexistent)
@@ -1,20 +0,0 @@
---- tclUnixSock.c.orig	Fri Apr 16 02:48:05 1999
-+++ tclUnixSock.c	Wed Nov 14 23:21:18 2001
-@@ -65,7 +65,7 @@
- char *
- Tcl_GetHostName()
- {
--#ifndef NO_UNAME
-+#if 0
-     struct utsname u;
-     struct hostent *hp;
- #else
-@@ -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. */

Property changes on: head/lang/tcl84/files/patch-tclUnixSock.c
___________________________________________________________________
Deleted: cvs2svn:cvs-rev
## -1 +0,0 ##
-1.2
\ No newline at end of property
Deleted: fbsd:nokeywords
## -1 +0,0 ##
-yes
\ No newline at end of property