zipvfs shows empty dir with special crafted archives

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