summaryrefslogtreecommitdiffstats
path: root/generic/tclIO.c
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2014-05-08 02:38:52 (GMT)
committerdgp <dgp@users.sourceforge.net>2014-05-08 02:38:52 (GMT)
commit48ae7e42c1bd6a104c78d737fd6b826a1a4ee7bd (patch)
tree2c97d156d0b29e5eeb3c047d7d652343eeda00c0 /generic/tclIO.c
parent7c1d853a93ed3c14acece6af7b054bed1a22b67b (diff)
downloadtcl-48ae7e42c1bd6a104c78d737fd6b826a1a4ee7bd.zip
tcl-48ae7e42c1bd6a104c78d737fd6b826a1a4ee7bd.tar.gz
tcl-48ae7e42c1bd6a104c78d737fd6b826a1a4ee7bd.tar.bz2
Stop leak in iocmd-21.22.
Diffstat (limited to 'generic/tclIO.c')
-rw-r--r--generic/tclIO.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/generic/tclIO.c b/generic/tclIO.c
index f2d1f44..4628e90 100644
--- a/generic/tclIO.c
+++ b/generic/tclIO.c
@@ -3607,6 +3607,7 @@ static int WillRead(Channel *chanPtr)
{
if (chanPtr->typePtr == NULL) {
/* Prevent read attempts on a closed channel */
+ DiscardInputQueued(chanPtr->state, 0);
Tcl_SetErrno(EINVAL);
return -1;
}