From 323b045b4b17dead79ad09748738efaf7863b09d Mon Sep 17 00:00:00 2001
From: he <he@pkgsrc.org>
Date: Wed, 24 Jan 2001 18:42:33 +0000
Subject: Add a point patch pulled from development version of tcl, so that
 ``while 1 { close [open /dev/null r] }'' does not leak memory for each
 go-around.  This corresponds to sourceforge bugid #117988. Bump PKGNAME to
 tcl-8.3.2nb1.

---
 lang/tcl/Makefile         |  4 ++--
 lang/tcl/files/patch-sum  |  3 ++-
 lang/tcl/patches/patch-ad | 19 +++++++++++++++++++
 3 files changed, 23 insertions(+), 3 deletions(-)
 create mode 100644 lang/tcl/patches/patch-ad

diff --git a/lang/tcl/Makefile b/lang/tcl/Makefile
index 280ed719de7..aaa81556724 100644
--- a/lang/tcl/Makefile
+++ b/lang/tcl/Makefile
@@ -1,8 +1,8 @@
-# $NetBSD: Makefile,v 1.4 2000/09/02 15:59:53 wiz Exp $
+# $NetBSD: Makefile,v 1.5 2001/01/24 18:42:33 he Exp $
 #
 
 DISTNAME=		tcl8.3.2
-PKGNAME=		tcl-8.3.2
+PKGNAME=		tcl-8.3.2nb1
 CATEGORIES=		lang
 MASTER_SITES=		ftp://ftp.scriptics.com/pub/tcl/tcl8_3/ \
 			ftp://gd.tuwien.ac.at/languages/tcl/scriptics/tcl8_3/ \
diff --git a/lang/tcl/files/patch-sum b/lang/tcl/files/patch-sum
index b5866dc5027..849545ad64b 100644
--- a/lang/tcl/files/patch-sum
+++ b/lang/tcl/files/patch-sum
@@ -1,5 +1,6 @@
-$NetBSD: patch-sum,v 1.7 2000/12/08 20:41:18 jlam Exp $
+$NetBSD: patch-sum,v 1.8 2001/01/24 18:42:33 he Exp $
 
 MD5 (patch-aa) = be3ae1cef9a45dd28966ae8d67b9ca26
 MD5 (patch-ab) = afbb4d55085117146c566c6f4b840793
 MD5 (patch-ac) = 6d7acb944f0ffc6111cd9a250b4ecea2
+MD5 (patch-ad) = 6067add3d94e3a1483cdd4cef88939c6
diff --git a/lang/tcl/patches/patch-ad b/lang/tcl/patches/patch-ad
new file mode 100644
index 00000000000..0a99a457e4c
--- /dev/null
+++ b/lang/tcl/patches/patch-ad
@@ -0,0 +1,19 @@
+$NetBSD: patch-ad,v 1.1 2001/01/24 18:42:33 he Exp $
+
+--- ../generic/tclIO.c.orig	Tue Aug  8 02:57:40 2000
++++ ../generic/tclIO.c	Wed Jan 24 16:28:20 2001
+@@ -2181,10 +2181,13 @@
+ 
+     /*
+      * There is only the TOP Channel, so we free the remaining
+-     * pointers we have and then ourselves.
++     * pointers we have and then ourselves.  Since this is the
++     * last of the channels in the stack, make sure to free the
++     * ChannelState structure associated with it.
+      */
+     chanPtr->typePtr = NULL;
+ 
++    Tcl_EventuallyFree((ClientData) statePtr, TCL_DYNAMIC);
+     Tcl_EventuallyFree((ClientData) chanPtr, TCL_DYNAMIC);
+ 
+     return errorCode;
-- 
cgit v1.2.3