From: Vince Darley <vincentdarley@sourceforge.net>
Date: Fri, 2 Jul 2004 08:58:11 +0000 (+0000)
Subject: small zip fix
X-Git-Tag: vfs-1-4~88
X-Git-Url: https://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=bb0ace6fa4f73925836fe0904e8e67d183486468;p=tclvfs

small zip fix
---

diff --git a/library/zipvfs.tcl b/library/zipvfs.tcl
index 13a98d3..80e48d9 100644
--- a/library/zipvfs.tcl
+++ b/library/zipvfs.tcl
@@ -308,7 +308,7 @@ proc zip::Data {fd arr {varPtr ""} {verify 0}} {
 
     if { $sb(method) != 0 } {
 	if { [catch {
-	    set data [vfs::zip -mode decompress -nowrap 1 $data]
+	    set data [vfs::zip -mode decompress -nowrap 1 -- $data]
 	} err] } {
 	    ::vfs::log "$sb(name): inflate error: $err"
 	    binary scan $data H* x