From e059101eedfd4f4901b73f983842b9d1c6e45098 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Fri, 10 Oct 2014 19:54:19 +0000
Subject: [bf7135428c] Restore the Tcl_Write() return value logic.

---
 generic/tclIO.c | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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;
 }
 
 /*
-- 
cgit v0.12