diff options
| author | Torsten <Torsten> | 2024-08-03 06:07:01 (GMT) |
|---|---|---|
| committer | Torsten <Torsten> | 2024-08-03 06:07:01 (GMT) |
| commit | 0f1cf0e7259a56f17647893f0e72b1a7ecd44cf4 (patch) | |
| tree | 8687f19929b5a53a3874e6701a75896cbec9aae7 /generic | |
| parent | 9ed379cc2175b16bf6f29febe049e8ffa764c4cd (diff) | |
| download | tcl-0f1cf0e7259a56f17647893f0e72b1a7ecd44cf4.zip tcl-0f1cf0e7259a56f17647893f0e72b1a7ecd44cf4.tar.gz tcl-0f1cf0e7259a56f17647893f0e72b1a7ecd44cf4.tar.bz2 | |
correct wrong comment about safe subcommands, don't make zipfs a package anymore (ticket [b9f3ff8fe6])
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclZipfs.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/generic/tclZipfs.c b/generic/tclZipfs.c index b72abfc..11d41bf 100644 --- a/generic/tclZipfs.c +++ b/generic/tclZipfs.c @@ -6202,11 +6202,11 @@ TclZipfs_Init( {"mkzip", ZipFSMkZipObjCmd, NULL, NULL, NULL, 1}, {"lmkimg", ZipFSLMkImgObjCmd, NULL, NULL, NULL, 1}, {"lmkzip", ZipFSLMkZipObjCmd, NULL, NULL, NULL, 1}, - /* The 4 entries above are not available in safe interpreters */ {"mount", ZipFSMountObjCmd, NULL, NULL, NULL, 1}, {"mount_data", ZipFSMountBufferObjCmd, NULL, NULL, NULL, 1}, {"unmount", ZipFSUnmountObjCmd, NULL, NULL, NULL, 1}, {"mkkey", ZipFSMkKeyObjCmd, NULL, NULL, NULL, 1}, + /* The 8 entries above are not available in safe interpreters */ {"exists", ZipFSExistsObjCmd, NULL, NULL, NULL, 0}, {"info", ZipFSInfoObjCmd, NULL, NULL, NULL, 0}, {"list", ZipFSListObjCmd, NULL, NULL, NULL, 0}, @@ -6267,7 +6267,6 @@ TclZipfs_Init( TclDictPutString(NULL, mapObj, "find", "::tcl::zipfs::find"); Tcl_CreateObjCommand(interp, "::tcl::zipfs::tcl_library_init", ZipFSTclLibraryObjCmd, NULL, NULL); - Tcl_PkgProvide(interp, "tcl::zipfs", "2.0"); } return TCL_OK; #else /* !HAVE_ZLIB */ |