diff options
| author | dgp <dgp@users.sourceforge.net> | 2015-01-29 18:39:11 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2015-01-29 18:39:11 (GMT) |
| commit | b45286725aeaf89d746d3f7edc0f125a4c0950a3 (patch) | |
| tree | 496cc00d2a006e701ac59cd581fb861c2f321275 /generic/tclIO.c | |
| parent | e284f17cb1e7ab285815f492702571fd10211764 (diff) | |
| download | tcl-b45286725aeaf89d746d3f7edc0f125a4c0950a3.zip tcl-b45286725aeaf89d746d3f7edc0f125a4c0950a3.tar.gz tcl-b45286725aeaf89d746d3f7edc0f125a4c0950a3.tar.bz2 | |
Fix [08872796bc]
Diffstat (limited to 'generic/tclIO.c')
| -rw-r--r-- | generic/tclIO.c | 4 |
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) { |