diff options
| author | dgp <dgp@users.sourceforge.net> | 2014-07-24 15:02:09 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2014-07-24 15:02:09 (GMT) |
| commit | f3e831dfbc16475f7b102489a0beb702801519a4 (patch) | |
| tree | 33651e918903430d735b9fc1c5404a3985cae690 /generic | |
| parent | f3fc4920e44aac717ca60bbc0619d7a22a791854 (diff) | |
| download | tcl-f3e831dfbc16475f7b102489a0beb702801519a4.zip tcl-f3e831dfbc16475f7b102489a0beb702801519a4.tar.gz tcl-f3e831dfbc16475f7b102489a0beb702801519a4.tar.bz2 | |
Make sure MoveBytes records read error messages.
Diffstat (limited to 'generic')
| -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 6718788..017494e 100644 --- a/generic/tclIO.c +++ b/generic/tclIO.c @@ -8931,9 +8931,13 @@ MoveBytes( int inBytes = 0; if (bufPtr == NULL || BytesLeft(bufPtr) == 0) { - /* Nothing in the input queue; Get more input. */ + /* Nothing in the input queue; Get more input. */ if (0 != GetInput(inStatePtr->topChanPtr)) { + Tcl_SetObjResult(csPtr->interp, Tcl_ObjPrintf( + "error reading \"%s\": %s", + Tcl_GetChannelName((Tcl_Channel)csPtr->readPtr), + Tcl_PosixError(csPtr->interp))); code = TCL_ERROR; break; } |