From 4af71e33b73ca3f49d8a73903d0badf42b01f946 Mon Sep 17 00:00:00 2001
From: Dirk Meyer <dinoex@FreeBSD.org>
Date: Wed, 30 Jun 2004 13:17:09 +0000
Subject: - support mode on /dev/cuaa* Submitted by:	John Hay

---
 lang/tcl84/files/patch-tclUnixChan.c | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100644 lang/tcl84/files/patch-tclUnixChan.c

(limited to 'lang/tcl84/files/patch-tclUnixChan.c')

diff --git a/lang/tcl84/files/patch-tclUnixChan.c b/lang/tcl84/files/patch-tclUnixChan.c
new file mode 100644
index 000000000000..94b687f57c79
--- /dev/null
+++ b/lang/tcl84/files/patch-tclUnixChan.c
@@ -0,0 +1,12 @@
+--- 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) {
-- 
cgit v1.2.3