diff options
| author | apnadkarni <apnmbx-wits@yahoo.com> | 2024-08-04 05:36:51 (GMT) |
|---|---|---|
| committer | apnadkarni <apnmbx-wits@yahoo.com> | 2024-08-04 05:36:51 (GMT) |
| commit | a6e20be2175e7048b54edfad12b9167fe62e8190 (patch) | |
| tree | 6d3d049ccdb4ad91e4dfa7a859a63b2ce96526ae /generic/tclBasic.c | |
| parent | 165343d07e23725f83743cf055fcd5cabf8173ca (diff) | |
| download | tcl-a6e20be2175e7048b54edfad12b9167fe62e8190.zip tcl-a6e20be2175e7048b54edfad12b9167fe62e8190.tar.gz tcl-a6e20be2175e7048b54edfad12b9167fe62e8190.tar.bz2 | |
Bug [a47b587499]. zipfs in safe interps
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} }; |