Diff

Differences From Artifact [952d380c4b]:

To Artifact [f8be70e066]:


   101    101   	"" -
   102    102   	"r" {
   103    103   	    if {![::zip::exists $zipfd $name]} {
   104    104   		vfs::filesystem posixerror $::vfs::posix(ENOENT)
   105    105   	    }
   106    106   	    
   107    107   	    ::zip::stat $zipfd $name sb
          108  +
          109  +            if {$sb(ino) == -1} {
          110  +                vfs::filesystem posixerror $::vfs::posix(EISDIR)
          111  +            }
   108    112   
   109    113   	    set nfd [vfs::memchan]
   110    114   	    fconfigure $nfd -translation binary
   111    115   
   112    116   	    seek $zipfd $sb(ino) start
   113    117   	    zip::Data $zipfd sb data
   114    118