Check-in [a48b533f86]
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
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
			set work [lrange $work 2 end]
			switch -- $fileInfo(type) {
				"file" {
					set fileInfo(size) [lindex $work 0]
					set fileInfo(perms) [lindex $work 1]
					set fileInfo(sha1) [lindex $work 2]

					set work [lrange 3 end]
				}
				"symlink" {
					set fileInfo(source) [lindex $work 0]
					set work [lrange 1 end]
				}
			}

			set fileInfo(name) [join $work ","]
			set fileInfo(name) [split [string trim $fileInfo(name) "/"] "/"]
			set fileInfo(directory) [join [lrange $fileInfo(name) 0 end-1] "/"]
			set fileInfo(name) [lindex $fileInfo(name) end]







|



|







255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
			set work [lrange $work 2 end]
			switch -- $fileInfo(type) {
				"file" {
					set fileInfo(size) [lindex $work 0]
					set fileInfo(perms) [lindex $work 1]
					set fileInfo(sha1) [lindex $work 2]

					set work [lrange $work 3 end]
				}
				"symlink" {
					set fileInfo(source) [lindex $work 0]
					set work [lrange $work 1 end]
				}
			}

			set fileInfo(name) [join $work ","]
			set fileInfo(name) [split [string trim $fileInfo(name) "/"] "/"]
			set fileInfo(directory) [join [lrange $fileInfo(name) 0 end-1] "/"]
			set fileInfo(name) [lindex $fileInfo(name) end]