[Tcl-bugs] tcl-cvs: 'tcl/tests io.test' modified

[Andreas K. <and...@us...>]

Update of /cvsroot/tcl/tcl/tests
In directory usw-pr-cvs1:/tmp/cvs-serv28522/tests

Modified Files:
	io.test 
Log Message:

	* generic/tclIO.c (WriteChars): Fix for SF #506297, reported by
	  Martin Forssen <ru...@us...>. The encoding
	  chosen in the script exposing the bug writes out three intro
	  characters when TCL_ENCODING_START is set, but does not consume
	  any input as TCL_ENCODING_END is cleared. As some output was
	  generated the enclosing loop calls UtfToExternal again, again
	  with START set. Three more characters in the out and still no
	  use of input ... To break this infinite loop we remove
	  TCL_ENCODING_START from the set of flags after the first call
	  (no condition is required, the later calls remove an unset flag,
	  which is a no-op). This causes the subsequent calls to
	  UtfToExternal to consume and convert the actual input.