From dd1cc53c753d81fa56891798b7beb152545ecb0c Mon Sep 17 00:00:00 2001
From: apnadkarni <apnmbx-wits@yahoo.com>
Date: Fri, 9 Aug 2024 15:25:12 +0000
Subject: Also fix the non-zipfs build

---
 generic/tclInterp.c | 2 +-
 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
-- 
cgit v0.12