diff options
| -rw-r--r-- | generic/tclIO.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclIO.c b/generic/tclIO.c index 0686571..93d1d46 100644 --- a/generic/tclIO.c +++ b/generic/tclIO.c @@ -8251,7 +8251,7 @@ Tcl_SetChannelOption( return TCL_ERROR; } if (newMode) { - ResetFlag(statePtr, CHANNEL_ENCODING_STRICT); + SetFlag(statePtr, CHANNEL_ENCODING_NOCOMPLAIN); } else { ResetFlag(statePtr, CHANNEL_ENCODING_NOCOMPLAIN); } @@ -8263,7 +8263,7 @@ Tcl_SetChannelOption( return TCL_ERROR; } if (newMode) { - ResetFlag(statePtr, CHANNEL_ENCODING_NOCOMPLAIN); + SetFlag(statePtr, CHANNEL_ENCODING_STRICT); } else { ResetFlag(statePtr, CHANNEL_ENCODING_STRICT); } |