diff options
| author | dgp <dgp@users.sourceforge.net> | 2014-05-08 02:38:52 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2014-05-08 02:38:52 (GMT) |
| commit | 48ae7e42c1bd6a104c78d737fd6b826a1a4ee7bd (patch) | |
| tree | 2c97d156d0b29e5eeb3c047d7d652343eeda00c0 /generic/tclIO.c | |
| parent | 7c1d853a93ed3c14acece6af7b054bed1a22b67b (diff) | |
| download | tcl-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.c | 1 |
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; } |