diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-10-06 17:22:38 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-10-06 17:22:38 (GMT) |
| commit | a51d80f377b33a38caf0a483b4b12bd494698f7f (patch) | |
| tree | 3a30cbfcc75e25272b2510ae2662e087a31e36ba /generic/tclIOCmd.c | |
| parent | 7a674da778ae7cadb94d9d7f8ba8304878f08ce5 (diff) | |
| parent | ac711bcf45a5b5bd09e3102e5ea08f726237212f (diff) | |
| download | tcl-a51d80f377b33a38caf0a483b4b12bd494698f7f.zip tcl-a51d80f377b33a38caf0a483b4b12bd494698f7f.tar.gz tcl-a51d80f377b33a38caf0a483b4b12bd494698f7f.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclIOCmd.c')
| -rw-r--r-- | generic/tclIOCmd.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclIOCmd.c b/generic/tclIOCmd.c index 86f1ee6..ed1a04e 100644 --- a/generic/tclIOCmd.c +++ b/generic/tclIOCmd.c @@ -964,7 +964,7 @@ Tcl_ExecObjCmd( resultPtr = Tcl_NewObj(); if (Tcl_GetChannelHandle(chan, TCL_READABLE, NULL) == TCL_OK) { - if (Tcl_ReadChars(chan, resultPtr, -1, 0) < 0) { + if (Tcl_ReadChars(chan, resultPtr, -1, 0) == TCL_IO_FAILURE) { /* * TIP #219. * Capture error messages put by the driver into the bypass area |