Updated 2006-08-02 20:50:16 by AK

Information like this should be submitted to the appropriate bug tracker ... Here for example it is http://sourceforge.net/tracker/?group_id=32692&atid=406308, reachable through http://sourceforge.net/projects/tclvfs

[Alexander Grischuk]: When mount zip file with filenames stored like ./dir/file (instead dir/file), glob shows nothing. Looks like it's bug in directory depth calculation logic (see code), of tclvfs. I have used ActiveTcl8.4.13 stable. To fix this problem I just patch code to eliminate "." path elements.

In file zipvfs.tcl:
     set sb(name) [read $fd [u_short $flen]]

replace to:
     set path [read $fd [u_short $flen]]
     set sb(name) ""

     foreach el [file split $path] {
         if {$el ne "."} {
     		set sb(name) [file join $sb(name) $el]
     	}
     }

In file zipvfs.tcl:
     set name [string tolower $path]

replace to:
     set name ""
     foreach el [file split [string tolower $path]] {
         if {$el ne "."} {
     		set name [file join $name $el]
     	}
     }

I didn't test enough, but such patch solves my problems. Here is such archive example: http://fasm.nm.ru/zipvfs_bug.zip