Tcl Source Code: Artifact [071e9969f2]

Artifact 071e9969f2971b3349a5d93b86799af0b5ac59da:

Attachment "patch" to ticket [506297ffff] added by ruric 2002-01-21 12:46:16.

--- generic/tclIO.c.old	Sun Jan 20 23:47:01 2002
+++ generic/tclIO.c	Sun Jan 20 23:13:21 2002
@@ -2746,6 +2746,7 @@
 	    Tcl_UtfToExternal(NULL, encoding, stage, stageLen, flags,
 		    &statePtr->outputEncodingState, dst,
 		    dstLen + BUFFER_PADDING, &stageRead, &dstWrote, NULL);
+	    flags &= ~TCL_ENCODING_START;
 	    if (stageRead + dstWrote == 0) {
 		/*
 		 * We have an incomplete UTF-8 character at the end of the