diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-06-07 12:20:09 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-06-07 12:20:09 (GMT) |
| commit | dfe7d9a619de2ee10d8ab312121545e143cc06b2 (patch) | |
| tree | 2ff7c77c87bd202aeed33e7faccef9fb9cd46980 /generic/tclBasic.c | |
| parent | ba13c1f02f09fe1bb79ff75711b25b1d92bd5f08 (diff) | |
| parent | dc3be02736fd99e77f08ba9b32b20bc34ce62d5e (diff) | |
| download | tcl-dfe7d9a619de2ee10d8ab312121545e143cc06b2.zip tcl-dfe7d9a619de2ee10d8ab312121545e143cc06b2.tar.gz tcl-dfe7d9a619de2ee10d8ab312121545e143cc06b2.tar.bz2 | |
Fix [d5b45c23f4]: file tildeexpand and file home not disabled in safe base interpLeaf check.
Diffstat (limited to 'generic/tclBasic.c')
| -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 9b6708d..dfed030 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -433,6 +433,7 @@ static const UnsafeEnsembleInfo unsafeEnsembleCommands[] = { {"file", "executable"}, {"file", "exists"}, {"file", "extension"}, + {"file", "home"}, {"file", "isdirectory"}, {"file", "isfile"}, {"file", "link"}, @@ -451,6 +452,7 @@ static const UnsafeEnsembleInfo unsafeEnsembleCommands[] = { {"file", "tail"}, {"file", "tempdir"}, {"file", "tempfile"}, + {"file", "tildeexpand"}, {"file", "type"}, {"file", "volumes"}, {"file", "writable"}, |