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 | 89a59098d13ccddf7453e15b5fb471779b855c35 (patch) | |
| tree | 6583564e22db742c19262a68fb54a854f7bed68d /generic/tclBasic.c | |
| parent | 0f1cf0e7259a56f17647893f0e72b1a7ecd44cf4 (diff) | |
| parent | d1cd7b81dcdd271949e29107e30a01fa1c9fb870 (diff) | |
| download | tcl-89a59098d13ccddf7453e15b5fb471779b855c35.zip tcl-89a59098d13ccddf7453e15b5fb471779b855c35.tar.gz tcl-89a59098d13ccddf7453e15b5fb471779b855c35.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} }; |