diff options
| author | apnadkarni <apnmbx-wits@yahoo.com> | 2024-08-03 12:30:05 (GMT) |
|---|---|---|
| committer | apnadkarni <apnmbx-wits@yahoo.com> | 2024-08-03 12:30:05 (GMT) |
| commit | 21e666117b5dda60cbbd1d080272937f4d610dfe (patch) | |
| tree | d2b761a2937b3e5f2633dc5d4b7875f429fc0e98 | |
| parent | 165343d07e23725f83743cf055fcd5cabf8173ca (diff) | |
| download | tcl-21e666117b5dda60cbbd1d080272937f4d610dfe.zip tcl-21e666117b5dda60cbbd1d080272937f4d610dfe.tar.gz tcl-21e666117b5dda60cbbd1d080272937f4d610dfe.tar.bz2 | |
Bug [fccb9f322f] - incorrect system encoding with zipfs builds
| -rw-r--r-- | generic/tclZipfs.c | 2 | ||||
| -rw-r--r-- | tests/unixInit.test | 2 |
2 files changed, 3 insertions, 1 deletions
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; } diff --git a/tests/unixInit.test b/tests/unixInit.test index 3bbe1e9..099dccb 100644 --- a/tests/unixInit.test +++ b/tests/unixInit.test @@ -100,7 +100,7 @@ test unixInit-3.2 {TclpSetInitialEncodings} -setup { catch {set oldlc_all $env(LC_ALL)} catch {set oldtcl_library $env(TCL_LIBRARY)} unset -nocomplain env(TCL_LIBRARY) -} -constraints {unix stdio knownBug} -body { +} -constraints {unix stdio} -body { set env(LANG) japanese set env(LC_ALL) japanese set f [open "|[list [interpreter]]" w+] |