diff options
author | dgp <dgp@noemail.net> | 2014-10-10 19:54:19 (GMT) |
---|---|---|
committer | dgp <dgp@noemail.net> | 2014-10-10 19:54:19 (GMT) |
commit | 731e7d0d43024c99b18fe8eb4a6f434c5fd91265 (patch) | |
tree | 65caada1b2bf70676244dc780459125ded54e824 | |
parent | a1cf35d69047b7e6c66bc26dfd17fd1d2a8bdd9e (diff) | |
download | tcl-731e7d0d43024c99b18fe8eb4a6f434c5fd91265.zip tcl-731e7d0d43024c99b18fe8eb4a6f434c5fd91265.tar.gz tcl-731e7d0d43024c99b18fe8eb4a6f434c5fd91265.tar.bz2 |
[bf7135428c] Restore the Tcl_Write() return value logic.
FossilOrigin-Name: 9e301d16f7d44ac4f261a6d6f14e6d4343cd95e6
-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; } /* |