diff options
| author | dgp <dgp@users.sourceforge.net> | 2014-05-07 02:28:56 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2014-05-07 02:28:56 (GMT) |
| commit | 68f4187dd1e16b0dfdc6b4e03787028f0009efca (patch) | |
| tree | b2ae989d289d7322baf6b71bc9e7a8dfc4b03bf7 | |
| parent | 01ccb9ccaa82c43b65c93a6a43c9f2083ec60f7e (diff) | |
| download | tcl-68f4187dd1e16b0dfdc6b4e03787028f0009efca.zip tcl-68f4187dd1e16b0dfdc6b4e03787028f0009efca.tar.gz tcl-68f4187dd1e16b0dfdc6b4e03787028f0009efca.tar.bz2 | |
Stop leak in io-53.5.
| -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 b2b4e5c..f2d1f44 100644 --- a/generic/tclIO.c +++ b/generic/tclIO.c @@ -3787,6 +3787,7 @@ Write( if (IsBufferFull(bufPtr)) { if (FlushChannel(NULL, chanPtr, 0) != 0) { + ReleaseChannelBuffer(bufPtr); return -1; } flushed += statePtr->bufSize; |