From: Steve Huntley <stephen.huntley@alum.mit.edu>
Date: Mon, 28 Nov 2011 19:12:07 +0000 (+0000)
Subject: 2011-11-28  Steve Huntley  <stephen.huntley@alum.mit.edu>
X-Git-Url: http://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=b62c09f4352a7018412c19ea23d9767b4b854e7e;p=tclvfs

2011-11-28  Steve Huntley  <stephen.huntley@alum.mit.edu>

	* zipvfs.tcl: Reverted bug fix for 3224057.  See bug ID 3303287.
---

diff --git a/ChangeLog b/ChangeLog
index 02965f9..e62eafb 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2011-11-28  Steve Huntley  <stephen.huntley@alum.mit.edu>
+
+	* zipvfs.tcl: Reverted bug fix for 3224057.  See bug ID 3303287.
+
+
 2011-04-28  Steve Huntley  <stephen.huntley@alum.mit.edu>
 
 	* zipvfs.tcl: Added contributed patch to speed up zipvfs directory 
diff --git a/library/zipvfs.tcl b/library/zipvfs.tcl
index 48aac3d..ae603c2 100644
--- a/library/zipvfs.tcl
+++ b/library/zipvfs.tcl
@@ -501,6 +501,8 @@ proc zip::TOC {fd arr} {
       flen elen clen sb(disk) sb(attr) \
       sb(atx) sb(ino)
 
+    set sb(ino) [expr {$cb(base) + $sb(ino)}]
+
     if { ![string equal "PK\01\02" $hdr] } {
 	binary scan $hdr H* x
 	return -code error "bad central header: $x"