summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authoroehhar <harald.oehlmann@elmicron.de>2022-08-18 20:20:10 (GMT)
committeroehhar <harald.oehlmann@elmicron.de>2022-08-18 20:20:10 (GMT)
commit9a1e8d3202a29dcc11dc8c54e01a02e1f6565fd1 (patch)
treea789a0411169557ca7172550a690280548cf5805
parentdc113d8f285f5b53a9fa035527abe05704027ab4 (diff)
downloadtcl-9a1e8d3202a29dcc11dc8c54e01a02e1f6565fd1.zip
tcl-9a1e8d3202a29dcc11dc8c54e01a02e1f6565fd1.tar.gz
tcl-9a1e8d3202a29dcc11dc8c54e01a02e1f6565fd1.tar.bz2
Correct option shortcut value
-rw-r--r--generic/tclIO.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclIO.c b/generic/tclIO.c
index 4e3e41c..6d9798e 100644
--- a/generic/tclIO.c
+++ b/generic/tclIO.c
@@ -8183,7 +8183,7 @@ Tcl_SetChannelOption(
statePtr->flags &= ~CHANNEL_TOLERANT_ENCODING;
}
return TCL_OK;
- } else if (HaveOpt(1, "-translation")) {
+ } else if (HaveOpt(2, "-translation")) {
const char *readMode, *writeMode;
if (Tcl_SplitList(interp, newValue, &argc, &argv) == TCL_ERROR) {