diff options
author | lawrance <lawrance@FreeBSD.org> | 2006-04-29 14:47:53 +0000 |
---|---|---|
committer | lawrance <lawrance@FreeBSD.org> | 2006-04-29 14:47:53 +0000 |
commit | ef9d713d309bd42da6de62b1618f2544a20eb339 (patch) | |
tree | 2e3870c68d070895d516011ec1362d294381462d /lang | |
parent | 7a55e87e2fd5feb53782be3b22e2bdbe25df4647 (diff) | |
download | FreeBSD-ports-ef9d713d309bd42da6de62b1618f2544a20eb339.zip FreeBSD-ports-ef9d713d309bd42da6de62b1618f2544a20eb339.tar.gz |
Remove two obsolete patches.
patch-tclUnixChan.c appears to have been a no-op all along, since
it is comparing literal device names, and we have no "/dev/cua".
patch-tclUnixSock.c was introduced on the basis that the nodename
returned by uname(3) was limited to 32 characters, which does not
appear to be the case now.
PORTREVISION not bumped since there should be no functional change.
PR: ports/92334
Submitted by: Donal Fellows <donal.k.fellows@manchester.ac.uk>
(Tcl Core Team)
Diffstat (limited to 'lang')
-rw-r--r-- | lang/tcl84/files/patch-tclUnixChan.c | 12 | ||||
-rw-r--r-- | lang/tcl84/files/patch-tclUnixSock.c | 20 |
2 files changed, 0 insertions, 32 deletions
diff --git a/lang/tcl84/files/patch-tclUnixChan.c b/lang/tcl84/files/patch-tclUnixChan.c deleted file mode 100644 index 94b687f..0000000 --- a/lang/tcl84/files/patch-tclUnixChan.c +++ /dev/null @@ -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) { diff --git a/lang/tcl84/files/patch-tclUnixSock.c b/lang/tcl84/files/patch-tclUnixSock.c deleted file mode 100644 index 1fc6882..0000000 --- a/lang/tcl84/files/patch-tclUnixSock.c +++ /dev/null @@ -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. */ |