diff options
| author | dgp <dgp@users.sourceforge.net> | 2014-10-10 19:54:19 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2014-10-10 19:54:19 (GMT) |
| commit | e059101eedfd4f4901b73f983842b9d1c6e45098 (patch) | |
| tree | 65caada1b2bf70676244dc780459125ded54e824 | |
| parent | 1159aa03c57e16b943f56f65272a590c5b1f0d50 (diff) | |
| download | tcl-e059101eedfd4f4901b73f983842b9d1c6e45098.zip tcl-e059101eedfd4f4901b73f983842b9d1c6e45098.tar.gz tcl-e059101eedfd4f4901b73f983842b9d1c6e45098.tar.bz2 | |
[bf7135428c] Restore the Tcl_Write() return value logic.
| -rw-r--r-- | generic/tclIO.c | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/generic/tclIO.c b/generic/tclIO.c index 2fd3792..d1f22c1 100644 --- a/generic/tclIO.c +++ b/generic/tclIO.c @@ -3484,7 +3484,10 @@ Tcl_Write( if (srcLen < 0) { srcLen = strlen(src); } - return WriteBytes(chanPtr, src, srcLen); + if (WriteBytes(chanPtr, src, srcLen) < 0) { + return -1; + } + return srcLen; } /* |