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 02965f9a3120f8aa02bf5251f164d1f4d5dcfd24..e62eafb2dee857dce5932e31e8f88df98105dad7 100644 (file)
--- 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 48aac3de5828b6bf7b259c5d5b614fccd3254014..ae603c2c5c4b03525e44357c29f0f96856ba8e6c 100644 (file)
--- 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"