Check-in [538accae67]
Overview
Comment:Added dangling symlink support
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:538accae677b7e946a38a10ed1feee853beb93d2
User & Date: rkeene on 2014-11-15 17:33:13
Other Links: manifest | tags
Context
2014-11-15
17:33
Added symlink creation support check-in: f6af28366e user: rkeene tags: trunk
17:33
Added dangling symlink support check-in: 538accae67 user: rkeene tags: trunk
17:20
Updated to flush cache before exiting in exit path mode and allow short reads without returning an error as they seem to be expected check-in: 67735b9ee3 user: rkeene tags: trunk
Changes

Modified appfsd.tcl from [f5542ce16c] to [8fdf97f435].

   621    621   
   622    622   				set localpath [_localpath $pathinfo(package) $pathinfo(hostname) $pathinfo(file)]
   623    623   				set whiteoutpath  [_whiteoutpath $pathinfo(package) $pathinfo(hostname) $pathinfo(file)]
   624    624   
   625    625   				set retval(localpath) $localpath
   626    626   				set retval(whiteoutpath) $whiteoutpath
   627    627   
   628         -				if {$localpath != "" && [file exists $localpath]} {
   629         -					set retval(is_localfile) 1
   630         -					catch {
   631         -						_as_user {
          628  +				unset -nocomplain localpathinfo
          629  +				if {$localpath != ""} {
          630  +					_as_user {
          631  +						catch {
   632    632   							file lstat $localpath localpathinfo
   633    633   						}
          634  +					}
          635  +				}
          636  +
          637  +				if {$localpath != "" && [info exists localpathinfo]} {
          638  +					set retval(is_localfile) 1
          639  +					catch {
   634    640   						set retval(time) $localpathinfo(mtime)
   635    641   
   636    642   						switch -- $localpathinfo(type) {
   637    643   							"directory" {
   638    644   								set retval(type) "directory"
   639    645   								set retval(childcount) [llength [getchildren $path]]
   640    646   							}