diff options
| author | dgp <dgp@users.sourceforge.net> | 2014-08-12 15:28:09 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2014-08-12 15:28:09 (GMT) |
| commit | c93483448e724b85c9b710945ca3c70688ac68f6 (patch) | |
| tree | 6c3a385e10d6e8cac9c59bb82fbab7aa9d90d5d4 /generic/tclIO.c | |
| parent | 67fcf44a821dcad20d12a0ca185dcafcfa1b80c6 (diff) | |
| download | tcl-c93483448e724b85c9b710945ca3c70688ac68f6.zip tcl-c93483448e724b85c9b710945ca3c70688ac68f6.tar.gz tcl-c93483448e724b85c9b710945ca3c70688ac68f6.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.c | 2 |
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) { |