From 55764fb57faee71ae3f09b9b7c2c69343282382b Mon Sep 17 00:00:00 2001
From: "dgp@users.sourceforge.net" <dgp>
Date: Wed, 4 Jun 2014 16:36:25 +0000
Subject: Revise DiscardOutput() to account for revisions to the loop in
 FlushChannel() which is its only caller.  We need to discard the curOutPtr
 buffer as well, and not count on another pass through the loop to attempt to
 flush it (and raise the same failure again?).

---
 generic/tclIO.c | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/generic/tclIO.c b/generic/tclIO.c
index ed94bfe..b7135e9 100644
--- a/generic/tclIO.c
+++ b/generic/tclIO.c
@@ -2415,6 +2415,11 @@ DiscardOutputQueued(
     }
     statePtr->outQueueHead = NULL;
     statePtr->outQueueTail = NULL;
+    bufPtr = statePtr->curOutPtr;
+    if (bufPtr && BytesLeft(bufPtr)) {
+	statePtr->curOutPtr = NULL;
+	RecycleBuffer(statePtr, bufPtr, 0);
+    }
 }
 
 /*
-- 
cgit v0.12