diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-02-28 14:07:17 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-02-28 14:07:17 (GMT) |
| commit | 35cf0ba42a45bd84f012db9a49c7634d93c1e18a (patch) | |
| tree | 555a3eed5ad37908606345b86af2393246746e2c /generic/tclMain.c | |
| parent | 4a07460db0fde8052d2d749cb79d56446d2eae48 (diff) | |
| parent | 57b1d9531c5dc0a0a8c5d8055b2bf09f9e966842 (diff) | |
| download | tcl-35cf0ba42a45bd84f012db9a49c7634d93c1e18a.zip tcl-35cf0ba42a45bd84f012db9a49c7634d93c1e18a.tar.gz tcl-35cf0ba42a45bd84f012db9a49c7634d93c1e18a.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclMain.c')
| -rw-r--r-- | generic/tclMain.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclMain.c b/generic/tclMain.c index 16e2159..8b8daf3 100644 --- a/generic/tclMain.c +++ b/generic/tclMain.c @@ -250,7 +250,7 @@ Tcl_SourceRCFile( c = Tcl_OpenFileChannel(NULL, fullName, "r", 0); if (c != NULL) { - Tcl_Close(NULL, c); + Tcl_CloseEx(NULL, c, 0); if (Tcl_EvalFile(interp, fullName) != TCL_OK) { chan = Tcl_GetStdChannel(TCL_STDERR); if (chan) { |