diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-08-12 10:25:49 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-08-12 10:25:49 (GMT) |
| commit | 52549ae747613994a8ced4de9b567bc4cc09443f (patch) | |
| tree | b1f17063e9344551bfd310a517c56f25b6912d53 | |
| parent | 330e4967abb577c06a94a635e415c031030372f8 (diff) | |
| download | tcl-52549ae747613994a8ced4de9b567bc4cc09443f.zip tcl-52549ae747613994a8ced4de9b567bc4cc09443f.tar.gz tcl-52549ae747613994a8ced4de9b567bc4cc09443f.tar.bz2 | |
Fix [e87000d8425ab86a]: crash for "fconfigure stdout" in Win32.
Even though the crash cannot happen in Tcl 8.6, the function Tcl_BadChannelOption() was to blame, so better fix that in 8.6 too.
| -rw-r--r-- | generic/tclIO.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclIO.c b/generic/tclIO.c index 7abeb68..82eb581 100644 --- a/generic/tclIO.c +++ b/generic/tclIO.c @@ -7699,7 +7699,7 @@ Tcl_BadChannelOption( } Tcl_ResetResult(interp); errObj = Tcl_ObjPrintf("bad option \"%s\": should be one of ", - optionName); + optionName ? optionName : ""); argc--; for (i = 0; i < argc; i++) { Tcl_AppendPrintfToObj(errObj, "-%s, ", argv[i]); |