Diff

Differences From Artifact [5c768f9af5]:

To Artifact [ca9b582274]:


   255    255   			set work [lrange $work 2 end]
   256    256   			switch -- $fileInfo(type) {
   257    257   				"file" {
   258    258   					set fileInfo(size) [lindex $work 0]
   259    259   					set fileInfo(perms) [lindex $work 1]
   260    260   					set fileInfo(sha1) [lindex $work 2]
   261    261   
   262         -					set work [lrange 3 end]
          262  +					set work [lrange $work 3 end]
   263    263   				}
   264    264   				"symlink" {
   265    265   					set fileInfo(source) [lindex $work 0]
   266         -					set work [lrange 1 end]
          266  +					set work [lrange $work 1 end]
   267    267   				}
   268    268   			}
   269    269   
   270    270   			set fileInfo(name) [join $work ","]
   271    271   			set fileInfo(name) [split [string trim $fileInfo(name) "/"] "/"]
   272    272   			set fileInfo(directory) [join [lrange $fileInfo(name) 0 end-1] "/"]
   273    273   			set fileInfo(name) [lindex $fileInfo(name) end]