diff options
| author | Sam Lawrance <lawrance@FreeBSD.org> | 2006-04-29 14:47:53 +0000 |
|---|---|---|
| committer | Sam Lawrance <lawrance@FreeBSD.org> | 2006-04-29 14:47:53 +0000 |
| commit | 09ee1a43e3084e14d43050007735d186b9d60069 (patch) | |
| tree | 994e5733bbdf9493373f6a1dd36511c9b0af2315 /lang/tcl84 | |
| parent | This plugin saves the caches every 60 seconds (or user-defined period). (diff) | |
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)
Notes
Notes:
svn path=/head/; revision=160780
Diffstat (limited to 'lang/tcl84')
| -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 94b687f57c79..000000000000 --- 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 1fc68827474b..000000000000 --- 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. */ |