summaryrefslogtreecommitdiffstats
path: root/generic/tclIO.c
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2014-08-12 15:28:09 (GMT)
committerdgp <dgp@users.sourceforge.net>2014-08-12 15:28:09 (GMT)
commit14959b85abb4ba74717fcef5bac22d502690e66b (patch)
tree6c3a385e10d6e8cac9c59bb82fbab7aa9d90d5d4 /generic/tclIO.c
parentf279aa4eaa6ae61f1f8fda35f86fa2ba929c98aa (diff)
downloadtcl-14959b85abb4ba74717fcef5bac22d502690e66b.zip
tcl-14959b85abb4ba74717fcef5bac22d502690e66b.tar.gz
tcl-14959b85abb4ba74717fcef5bac22d502690e66b.tar.bz2
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.
Diffstat (limited to 'generic/tclIO.c')
-rw-r--r--generic/tclIO.c2
1 files changed, 1 insertions, 1 deletions
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) {