From 74090312ff7d87400e97ab54b9598b335f68c136 Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Fri, 7 Jun 2024 10:32:05 +0000
Subject: Fix for [d5b45c23f4]: file tildeexpand and file home not disabled in
 safe base interp

---
 generic/tclBasic.c | 2 ++
 tests/interp.test  | 2 +-
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/generic/tclBasic.c b/generic/tclBasic.c
index 4cf24e4..507d987 100644
--- a/generic/tclBasic.c
+++ b/generic/tclBasic.c
@@ -440,6 +440,7 @@ static const UnsafeEnsembleInfo unsafeEnsembleCommands[] = {
     {"file", "executable"},
     {"file", "exists"},
     {"file", "extension"},
+    {"file", "home"},
     {"file", "isdirectory"},
     {"file", "isfile"},
     {"file", "link"},
@@ -458,6 +459,7 @@ static const UnsafeEnsembleInfo unsafeEnsembleCommands[] = {
     {"file", "tail"},
     {"file", "tempdir"},
     {"file", "tempfile"},
+    {"file", "tildeexpand"},
     {"file", "type"},
     {"file", "volumes"},
     {"file", "writable"},
diff --git a/tests/interp.test b/tests/interp.test
index 7c56f78..f190d62 100644
--- a/tests/interp.test
+++ b/tests/interp.test
@@ -20,7 +20,7 @@ catch [list package require -exact tcl::test [info patchlevel]]
 
 testConstraint testinterpdelete [llength [info commands testinterpdelete]]
 
-set hidden_cmds {cd encoding exec exit fconfigure file glob load open pwd socket source tcl:encoding:dirs tcl:encoding:system tcl:file:atime tcl:file:attributes tcl:file:copy tcl:file:delete tcl:file:dirname tcl:file:executable tcl:file:exists tcl:file:extension tcl:file:isdirectory tcl:file:isfile tcl:file:link tcl:file:lstat tcl:file:mkdir tcl:file:mtime tcl:file:nativename tcl:file:normalize tcl:file:owned tcl:file:readable tcl:file:readlink tcl:file:rename tcl:file:rootname tcl:file:size tcl:file:stat tcl:file:tail tcl:file:tempdir tcl:file:tempfile tcl:file:type tcl:file:volumes tcl:file:writable tcl:info:cmdtype tcl:info:nameofexecutable tcl:process:autopurge tcl:process:list tcl:process:purge tcl:process:status tcl:zipfs:lmkimg tcl:zipfs:lmkzip tcl:zipfs:mkimg tcl:zipfs:mkkey tcl:zipfs:mkzip tcl:zipfs:mount tcl:zipfs:mount_data tcl:zipfs:unmount unload}
+set hidden_cmds {cd encoding exec exit fconfigure file glob load open pwd socket source tcl:encoding:dirs tcl:encoding:system tcl:file:atime tcl:file:attributes tcl:file:copy tcl:file:delete tcl:file:dirname tcl:file:executable tcl:file:exists tcl:file:extension tcl:file:home tcl:file:isdirectory tcl:file:isfile tcl:file:link tcl:file:lstat tcl:file:mkdir tcl:file:mtime tcl:file:nativename tcl:file:normalize tcl:file:owned tcl:file:readable tcl:file:readlink tcl:file:rename tcl:file:rootname tcl:file:size tcl:file:stat tcl:file:tail tcl:file:tempdir tcl:file:tempfile tcl:file:tildeexpand tcl:file:type tcl:file:volumes tcl:file:writable tcl:info:cmdtype tcl:info:nameofexecutable tcl:process:autopurge tcl:process:list tcl:process:purge tcl:process:status tcl:zipfs:lmkimg tcl:zipfs:lmkzip tcl:zipfs:mkimg tcl:zipfs:mkkey tcl:zipfs:mkzip tcl:zipfs:mount tcl:zipfs:mount_data tcl:zipfs:unmount unload}
 
 proc _ms_limit_args {ms {t0 {}}} {
     if {$t0 eq {}} { set t0 [clock milliseconds] }
-- 
cgit v0.12