diff options
| author | apnadkarni <apnmbx-wits@yahoo.com> | 2024-08-05 13:36:47 (GMT) |
|---|---|---|
| committer | apnadkarni <apnmbx-wits@yahoo.com> | 2024-08-05 13:36:47 (GMT) |
| commit | 40e40702810ec93e271fccc9c0475b786ba0bdfc (patch) | |
| tree | 6583564e22db742c19262a68fb54a854f7bed68d /generic/tclBasic.c | |
| parent | 8186df2afdba9f8c5369b9044bcf8ff8301ea3b9 (diff) | |
| parent | 46b2d05151f8337a395521d1c6e493fed5073db8 (diff) | |
| download | tcl-40e40702810ec93e271fccc9c0475b786ba0bdfc.zip tcl-40e40702810ec93e271fccc9c0475b786ba0bdfc.tar.gz tcl-40e40702810ec93e271fccc9c0475b786ba0bdfc.tar.bz2 | |
Make zipfs inaccessible to safe interps. See bug [a47b587499]
Diffstat (limited to 'generic/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 7f8d68c..7dece25 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -463,7 +463,15 @@ static const UnsafeEnsembleInfo unsafeEnsembleCommands[] = { {"process", "status"}, {"process", "purge"}, {"process", "autopurge"}, - /* [zipfs] has MANY unsafe commands! */ + /* + * [zipfs] perhaps has some safe commands. But like file make it inaccessible + * until they are analyzed to be safe. + */ + {"zipfs", NULL}, + {"zipfs", "canonical"}, + {"zipfs", "exists"}, + {"zipfs", "info"}, + {"zipfs", "list"}, {"zipfs", "lmkimg"}, {"zipfs", "lmkzip"}, {"zipfs", "mkimg"}, @@ -471,6 +479,7 @@ static const UnsafeEnsembleInfo unsafeEnsembleCommands[] = { {"zipfs", "mkzip"}, {"zipfs", "mount"}, {"zipfs", "mount_data"}, + {"zipfs", "root"}, {"zipfs", "unmount"}, {NULL, NULL} }; |