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). 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