diff options
author | dgp <dgp@users.sourceforge.net> | 2014-10-10 19:56:06 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2014-10-10 19:56:06 (GMT) |
commit | f85490f4e1295f1c3e99c0afe69ca370b140358b (patch) | |
tree | 6b0cf2164e32f959e5b775f4868958f9af0b985c /generic/tclIO.c | |
parent | 4977df535f65baabad14a446107f94bbdace5dfd (diff) | |
parent | c2be2a28e0541de49216935f4245f53884d17ee0 (diff) | |
download | tcl-f85490f4e1295f1c3e99c0afe69ca370b140358b.zip tcl-f85490f4e1295f1c3e99c0afe69ca370b140358b.tar.gz tcl-f85490f4e1295f1c3e99c0afe69ca370b140358b.tar.bz2 |
[bf7135428c] Restore the Tcl_Write() return value logic.
Diffstat (limited to 'generic/tclIO.c')
-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 2810372..9283bf5 100644 --- a/generic/tclIO.c +++ b/generic/tclIO.c @@ -3894,7 +3894,10 @@ Tcl_Write( if (srcLen < 0) { srcLen = strlen(src); } - return WriteBytes(chanPtr, src, srcLen); + if (WriteBytes(chanPtr, src, srcLen) < 0) { + return -1; + } + return srcLen; } /* |