diff options
| author | dgp@users.sourceforge.net <dgp> | 2014-10-10 19:44:54 (GMT) |
|---|---|---|
| committer | dgp@users.sourceforge.net <dgp> | 2014-10-10 19:44:54 (GMT) |
| commit | 97a9d0dc4f29302f2359e1fa6afbb6bd16041913 (patch) | |
| tree | 00c2387962f5daacc8bc8939916cc1a1eee7955c /generic/tclIO.c | |
| parent | 48c2b0c4fcf0e14eaf8b572f914002e300c672ed (diff) | |
| download | tcl-97a9d0dc4f29302f2359e1fa6afbb6bd16041913.zip tcl-97a9d0dc4f29302f2359e1fa6afbb6bd16041913.tar.gz tcl-97a9d0dc4f29302f2359e1fa6afbb6bd16041913.tar.bz2 | |
[ed29c4da21] Completed fix for [chan copy] handling [chan blocked].
Diffstat (limited to 'generic/tclIO.c')
| -rw-r--r-- | generic/tclIO.c | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/generic/tclIO.c b/generic/tclIO.c index 3d36d45..2810372 100644 --- a/generic/tclIO.c +++ b/generic/tclIO.c @@ -9020,7 +9020,7 @@ MBRead( } code = GetInput(inStatePtr->topChanPtr); - if (code == 0) { + if (code == 0 || GotFlag(inStatePtr, CHANNEL_BLOCKED)) { return TCL_OK; } else { MBError(csPtr, TCL_READABLE, code); @@ -9270,6 +9270,10 @@ CopyData( csPtr); } if (size == 0) { + if (!GotFlag(inStatePtr, CHANNEL_NONBLOCKING)) { + /* We allowed a short read. Keep trying. */ + continue; + } if (bufObj != NULL) { TclDecrRefCount(bufObj); bufObj = NULL; |