diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-06-07 10:32:05 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-06-07 10:32:05 (GMT) |
commit | 74090312ff7d87400e97ab54b9598b335f68c136 (patch) | |
tree | 783218bbc15c9f7cbdc4e8d52cf97679c3a39da3 /generic | |
parent | 1ad7ab1f6f151e6674d2476d2ab635997752ef95 (diff) | |
download | tcl-74090312ff7d87400e97ab54b9598b335f68c136.zip tcl-74090312ff7d87400e97ab54b9598b335f68c136.tar.gz tcl-74090312ff7d87400e97ab54b9598b335f68c136.tar.bz2 |
Fix for [d5b45c23f4]: file tildeexpand and file home not disabled in safe base interp
Diffstat (limited to 'generic')
-rw-r--r-- | generic/tclBasic.c | 2 |
1 files changed, 2 insertions, 0 deletions
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"}, |