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 | 6d7edeb429542cd2fb0e2e9dcf4ae05cb6a0b968 (patch) | |
| tree | 6d3d049ccdb4ad91e4dfa7a859a63b2ce96526ae /generic/tclBasic.c | |
| parent | 5c710065d370459398c3387ec13435f36ca4c3ec (diff) | |
| download | tcl-6d7edeb429542cd2fb0e2e9dcf4ae05cb6a0b968.zip tcl-6d7edeb429542cd2fb0e2e9dcf4ae05cb6a0b968.tar.gz tcl-6d7edeb429542cd2fb0e2e9dcf4ae05cb6a0b968.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} }; |