diff options
| author | apnadkarni <apnmbx-wits@yahoo.com> | 2024-08-09 15:25:12 (GMT) |
|---|---|---|
| committer | apnadkarni <apnmbx-wits@yahoo.com> | 2024-08-09 15:25:12 (GMT) |
| commit | 4fa03abc95d589e34369a0e05fba9aa1daebce96 (patch) | |
| tree | 06f49e3f94bf393fcc0c31f0a3a5bbf8c188f136 | |
| parent | 77348f5b5d6977b94774feadd4df1dd5d63fc111 (diff) | |
| download | tcl-4fa03abc95d589e34369a0e05fba9aa1daebce96.zip tcl-4fa03abc95d589e34369a0e05fba9aa1daebce96.tar.gz tcl-4fa03abc95d589e34369a0e05fba9aa1daebce96.tar.bz2 | |
Also fix the non-zipfs build
| -rw-r--r-- | generic/tclInterp.c | 2 | ||||
| -rw-r--r-- | tests/unixInit.test | 5 |
2 files changed, 3 insertions, 4 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/tests/unixInit.test b/tests/unixInit.test index 29ff300..099dccb 100644 --- a/tests/unixInit.test +++ b/tests/unixInit.test @@ -114,13 +114,12 @@ test unixInit-3.2 {TclpSetInitialEncodings} -setup { # reports that newer HP-UX systems report euc-jp like everybody else. lappend validEncodings shiftjis } - #expr {$enc ni $validEncodings} - set enc + expr {$enc ni $validEncodings} } -cleanup { unset -nocomplain env(LANG) env(LC_ALL) catch {set env(LC_ALL) $oldlc_all} catch {set env(TCL_LIBRARY) $oldtcl_library} -} -result euc-jp +} -result 0 test unixInit-4.1 {TclpSetVariables} {unix} { # just make sure they exist |