diff options
| author | dgp@users.sourceforge.net <dgp> | 2014-10-10 19:56:06 (GMT) |
|---|---|---|
| committer | dgp@users.sourceforge.net <dgp> | 2014-10-10 19:56:06 (GMT) |
| commit | 85f44acf304cd2733a519ee3013da509bab46d6c (patch) | |
| tree | 6b0cf2164e32f959e5b775f4868958f9af0b985c /generic/tclIO.c | |
| parent | 97a9d0dc4f29302f2359e1fa6afbb6bd16041913 (diff) | |
| parent | 0aec3d0950a4ae0af9462c8560f3b89857b3422a (diff) | |
| download | tcl-85f44acf304cd2733a519ee3013da509bab46d6c.zip tcl-85f44acf304cd2733a519ee3013da509bab46d6c.tar.gz tcl-85f44acf304cd2733a519ee3013da509bab46d6c.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; } /* |