fixes yet another segfault (if write handler doesn't generate an error, but returns normally with length of written bytes)

1 files changed, 9 insertions, 8 deletions

diff --git a/generic/tclIO.c b/generic/tclIO.c
index 2df8696..c3844af 100644
--- a/generic/tclIO.c
+++ b/generic/tclIO.c
@@ -9964,19 +9964,20 @@ DoRead(
 	    }
 
 	    if (code || !bufPtr) {
-		/*
-	     * Read error
-	     */
-
-		UpdateInterest(chanPtr);
-		TclChannelRelease((Tcl_Channel)chanPtr);
-		return -1;
+		/* Read error (or channel dead/closed) */
+		goto readErr;
 	    }
 
 	    assert(IsBufferFull(bufPtr));
 	}
 
-	assert(bufPtr != NULL);
+	if (!bufPtr) {
+	  readErr:
+
+	    UpdateInterest(chanPtr);
+	    TclChannelRelease((Tcl_Channel)chanPtr);
+	    return -1;
+	}
 
 	bytesRead = BytesLeft(bufPtr);
 	bytesWritten = bytesToRead;