summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2015-01-29 18:39:11 (GMT)
committerdgp <dgp@users.sourceforge.net>2015-01-29 18:39:11 (GMT)
commitb45286725aeaf89d746d3f7edc0f125a4c0950a3 (patch)
tree496cc00d2a006e701ac59cd581fb861c2f321275
parente284f17cb1e7ab285815f492702571fd10211764 (diff)
downloadtcl-b45286725aeaf89d746d3f7edc0f125a4c0950a3.zip
tcl-b45286725aeaf89d746d3f7edc0f125a4c0950a3.tar.gz
tcl-b45286725aeaf89d746d3f7edc0f125a4c0950a3.tar.bz2
Fix [08872796bc]
-rw-r--r--generic/tclIO.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclIO.c b/generic/tclIO.c
index a9091af..86ec27a 100644
--- a/generic/tclIO.c
+++ b/generic/tclIO.c
@@ -5735,8 +5735,8 @@ DoReadChars(
chanPtr = statePtr->topChanPtr;
TclChannelPreserve((Tcl_Channel)chanPtr);
- /* Must clear the BLOCKED flag here since we check before reading */
- ResetFlag(statePtr, CHANNEL_BLOCKED);
+ /* Must clear the BLOCKED|EOF flags here since we check before reading */
+ ResetFlag(statePtr, CHANNEL_BLOCKED|CHANNEL_EOF);
for (copied = 0; (unsigned) toRead > 0; ) {
copiedNow = -1;
if (statePtr->inQueueHead != NULL) {