Artifact
ecd800b3574fd65107270f1f049b3429114036fb:
Attachment "decode.tcl.patch" to
ticket [48ed494bc4]
added by
danilochang
2017-04-28 22:39:17.
(unpublished)
--- /home/danilo/Downloads/tcllib-1.18/modules/zip/decode.tcl 2017-02-15 21:23:57.000000000 +0800
+++ decode.tcl 2017-04-29 01:11:24.302642771 +0800
@@ -231,7 +231,11 @@
deflate {
go $fd(fileloc)
nbytes $fd(csize)
- return [zip -mode decompress -nowrap 1 -- [getval]]
+ if {$::zipfile::decode::native_zip_functs} {
+ return [zlib inflate [getval]]
+ } else {
+ return [zip -mode decompress -nowrap 1 -- [getval]]
+ }
}
default {
Error "Unable to handle file \"$src\" compressed with method \"$fd(cm)\"" \
