From 22e5e3f23f66d83f09a06b80a22a8215ab1dfc24 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
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