diff options
| author | apnadkarni <apnmbx-wits@yahoo.com> | 2023-09-29 02:40:08 (GMT) |
|---|---|---|
| committer | apnadkarni <apnmbx-wits@yahoo.com> | 2023-09-29 02:40:08 (GMT) |
| commit | bd10908764185f1cd2156ea68f00bab232761aca (patch) | |
| tree | ad2f80a1e8101cf438f7e0b6647d27323691c0e4 | |
| parent | 9fb03c8b99518f5210907247a9bdc5c397516012 (diff) | |
| download | tcl-bd10908764185f1cd2156ea68f00bab232761aca.zip tcl-bd10908764185f1cd2156ea68f00bab232761aca.tar.gz tcl-bd10908764185f1cd2156ea68f00bab232761aca.tar.bz2 | |
Minor edit
| -rw-r--r-- | generic/tclZipfs.c | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/generic/tclZipfs.c b/generic/tclZipfs.c index 7616ad3..7b3911c 100644 --- a/generic/tclZipfs.c +++ b/generic/tclZipfs.c @@ -14,6 +14,10 @@ * generic/tclZipfs.c file in the TIP430-enabled Tcl cores. * compat/tclZipfs.c file in the tclconfig (TEA) file system, for pre-tip430 * projects. + * + * Helpful docs: + * https://pkware.cachefly.net/webdocs/APPNOTE/APPNOTE-6.3.9.TXT + * https://libzip.org/specifications/appnote_iz.txt */ #include "tclInt.h" @@ -4839,8 +4843,7 @@ InitWritableChannel( /* TODO - why is the memset necessary? Not cheap for default maxWrite. */ memset(info->ubuf, 0, info->maxWrite); - info->isEncrypted = z->isEncrypted; - if (info->isEncrypted) { + if (z->isEncrypted) { assert(z->numCompressedBytes >= 12); /* caller should have checked*/ if (DecodeCryptHeader( interp, z, info->keys, z->zipFilePtr->data + z->offset) != |