From 77d8108158b1e45e8dc31209eccbe00787a73fb2 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Mon, 3 Nov 2014 21:37:37 +0000
Subject: Make sure reflected channels do not make a double call to
 Tcl_ReadRaw(), with the unwarranted assumption that EOF is a permanent
 condition.

---
 generic/tclIORTrans.c | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/generic/tclIORTrans.c b/generic/tclIORTrans.c
index 45ee08d..8f3ef3c 100644
--- a/generic/tclIORTrans.c
+++ b/generic/tclIORTrans.c
@@ -1097,6 +1097,11 @@ ReflectInput(
 	    goto stop;
 	}
 
+		if (rtPtr->readIsDrained) {
+		    goto stop;
+		}
+
+
 	/*
 	 * The buffer is exhausted, but the caller wants even more. We now
 	 * have to go to the underlying channel, get more bytes and then
@@ -1166,10 +1171,6 @@ ReflectInput(
 	     * on the down channel.
 	     */
 	
-		if (rtPtr->readIsDrained) {
-		    goto stop;
-		}
-
 		/*
 		 * Now this is a bit different. The partial data waiting is
 		 * converted and returned.
-- 
cgit v0.12