From 14959b85abb4ba74717fcef5bac22d502690e66b Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Tue, 12 Aug 2014 15:28:09 +0000
Subject: Accommodate the "udp" package, and any other Tcl package that expects
 a [read] on a channel @ EOF to attempt another pass through the channel
 drivers instead of immediately returning an empty string.  Correcting this
 misbehavior appears too disruptive in a patch release to a long stable
 branch.

---
 generic/tclIO.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/generic/tclIO.c b/generic/tclIO.c
index ed40e0d..afffeb8 100644
--- a/generic/tclIO.c
+++ b/generic/tclIO.c
@@ -5209,7 +5209,7 @@ DoReadChars(
     }
 
     /* Must clear the BLOCKED flag here since we check before reading */
-    ResetFlag(statePtr, CHANNEL_BLOCKED);
+    ResetFlag(statePtr, CHANNEL_BLOCKED|CHANNEL_EOF);
     for (copied = 0; (unsigned) toRead > 0; ) {
 	copiedNow = -1;
 	if (statePtr->inQueueHead != NULL) {
-- 
cgit v0.12