diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-08-18 17:20:25 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-08-18 17:20:25 (GMT) |
| commit | 1c55263e3653cb2ceb1d9e1574dc577faf3b0d11 (patch) | |
| tree | dcf0ef351e534824d0f6682d431ec4779532076a /generic/tclBasic.c | |
| parent | 64d7cb80a01248468fed1f40a6eda03c71e126fd (diff) | |
| download | tcl-1c55263e3653cb2ceb1d9e1574dc577faf3b0d11.zip tcl-1c55263e3653cb2ceb1d9e1574dc577faf3b0d11.tar.gz tcl-1c55263e3653cb2ceb1d9e1574dc577faf3b0d11.tar.bz2 | |
Backport: Consolidated zipfs changes
Diffstat (limited to 'generic/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 13 |
1 files changed, 11 insertions, 2 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index e6dde32..e76a3b6 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -471,14 +471,23 @@ 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"}, {"zipfs", "mkkey"}, {"zipfs", "mkzip"}, {"zipfs", "mount"}, - {"zipfs", "mount_data"}, + {"zipfs", "mountdata"}, + {"zipfs", "root"}, {"zipfs", "unmount"}, {NULL, NULL} }; |