diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-07-06 21:36:40 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-07-06 21:36:40 (GMT) |
| commit | d4a30d2344ed9e7ea007dff87e04e50495d9eda5 (patch) | |
| tree | 07054e9f318dac32a5bf6156c56c696904a03824 /generic/tclPipe.c | |
| parent | 7f445021a05cfed3bba1ff428a95fb0a6ab65599 (diff) | |
| download | tcl-d4a30d2344ed9e7ea007dff87e04e50495d9eda5.zip tcl-d4a30d2344ed9e7ea007dff87e04e50495d9eda5.tar.gz tcl-d4a30d2344ed9e7ea007dff87e04e50495d9eda5.tar.bz2 | |
remaining external API. Looks like complete now. Milestone! Still more testing needed
Diffstat (limited to 'generic/tclPipe.c')
| -rw-r--r-- | generic/tclPipe.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclPipe.c b/generic/tclPipe.c index f94fe5c..3494fdd 100644 --- a/generic/tclPipe.c +++ b/generic/tclPipe.c @@ -336,7 +336,7 @@ TclCleanupChildren( Tcl_Seek(errorChan, (Tcl_WideInt)0, SEEK_SET); objPtr = Tcl_NewObj(); count = Tcl_ReadChars(errorChan, objPtr, -1, 0); - if (count < 0) { + if (count == -1) { result = TCL_ERROR; Tcl_DecrRefCount(objPtr); Tcl_ResetResult(interp); |