From f3e831dfbc16475f7b102489a0beb702801519a4 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Thu, 24 Jul 2014 15:02:09 +0000
Subject: Make sure MoveBytes records read error messages.

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

diff --git a/generic/tclIO.c b/generic/tclIO.c
index 6718788..017494e 100644
--- a/generic/tclIO.c
+++ b/generic/tclIO.c
@@ -8931,9 +8931,13 @@ MoveBytes(
 	int inBytes = 0;
 
 	if (bufPtr == NULL || BytesLeft(bufPtr) == 0) {
-	    /* Nothing in the input queue;  Get more input. */
 
+	    /* Nothing in the input queue;  Get more input. */
 	    if (0 != GetInput(inStatePtr->topChanPtr)) { 
+		Tcl_SetObjResult(csPtr->interp, Tcl_ObjPrintf(
+			"error reading \"%s\": %s",
+			Tcl_GetChannelName((Tcl_Channel)csPtr->readPtr), 
+			Tcl_PosixError(csPtr->interp)));
 		code = TCL_ERROR;
 		break;
 	    }
-- 
cgit v0.12