diff options
author | apnadkarni <apnmbx-wits@yahoo.com> | 2024-08-11 17:24:58 (GMT) |
---|---|---|
committer | apnadkarni <apnmbx-wits@yahoo.com> | 2024-08-11 17:24:58 (GMT) |
commit | 02237c983a9f4670b5f6ce883e691d00e01ab445 (patch) | |
tree | 166b12f1718d7a135532856f5c541201e730ba03 /generic | |
parent | b6fe9b2aa01e1362084085740c77307635c2123e (diff) | |
parent | c03cb200cd9d4b8443ece3431781ae34bbeb8ade (diff) | |
download | tcl-02237c983a9f4670b5f6ce883e691d00e01ab445.zip tcl-02237c983a9f4670b5f6ce883e691d00e01ab445.tar.gz tcl-02237c983a9f4670b5f6ce883e691d00e01ab445.tar.bz2 |
Fix bug [fccb9f322f] - system encoding detection
Diffstat (limited to 'generic')
-rw-r--r-- | generic/tclInterp.c | 2 | ||||
-rw-r--r-- | generic/tclZipfs.c | 2 |
2 files changed, 3 insertions, 1 deletions
diff --git a/generic/tclInterp.c b/generic/tclInterp.c index 985190f..0abbebd 100644 --- a/generic/tclInterp.c +++ b/generic/tclInterp.c @@ -448,7 +448,7 @@ Tcl_Init( " }\n" "}\n" "tclInit", TCL_INDEX_NONE, 0); - + TclpSetInitialEncodings(); end: *names = (*names)->nextPtr; return result; diff --git a/generic/tclZipfs.c b/generic/tclZipfs.c index b72abfc..0c964e8 100644 --- a/generic/tclZipfs.c +++ b/generic/tclZipfs.c @@ -4240,6 +4240,8 @@ ScriptLibrarySetup( Tcl_IncrRefCount(searchPathObj); Tcl_SetEncodingSearchPath(searchPathObj); Tcl_DecrRefCount(searchPathObj); + /* Bug [fccb9f322f]. Reinit system encoding after setting search path */ + TclpSetInitialEncodings(); return libDirObj; } |