summaryrefslogtreecommitdiffstats
path: root/generic/tclIO.c
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2014-05-07 02:28:56 (GMT)
committerdgp <dgp@users.sourceforge.net>2014-05-07 02:28:56 (GMT)
commit5c31837bdf02ca496a7764d983b7186c62228026 (patch)
treeb2ae989d289d7322baf6b71bc9e7a8dfc4b03bf7 /generic/tclIO.c
parentd9de529a706559caa6f3cadab3c54249eca3c8d9 (diff)
downloadtcl-5c31837bdf02ca496a7764d983b7186c62228026.zip
tcl-5c31837bdf02ca496a7764d983b7186c62228026.tar.gz
tcl-5c31837bdf02ca496a7764d983b7186c62228026.tar.bz2
Stop leak in io-53.5.
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 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;