Overview
Comment: | Fixed typo in previous commit |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: | a48b533f86c12a9cd38c23b52c615331f119f001 |
User & Date: | rkeene on 2014-09-12 05:39:19 |
Other Links: | manifest | tags |
Context
2014-09-13
| ||
05:15 | Updated to commit package change as a single transaction check-in: 86819aa4e1 user: rkeene tags: trunk | |
2014-09-12
| ||
05:39 | Fixed typo in previous commit check-in: a48b533f86 user: rkeene tags: trunk | |
05:34 | Updated to deal with files with commas in the name check-in: 90dbb9682c user: rkeene tags: trunk | |
Changes
Modified appfsd.tcl from [5c768f9af5] to [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]