Changeset 119594
- Timestamp:
- May 1, 2014, 11:44:55 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/base/src/port1.0/portdestroot.tcl
r119573 r119594 174 174 set la_file_list [list] 175 175 fs-traverse -depth fullpath ${destroot} { 176 # XXX checking only relative symlinks - rewriting absolute links to point to destroot would be tricky 177 if {[file extension $fullpath] eq ".la" && ([file type $fullpath] eq "file" || ([file type $fullpath] eq "link" && [file pathtype [file link $fullpath]] eq "relative"))} { 176 if {[file extension $fullpath] eq ".la" && ([file type $fullpath] eq "file" || [file type $fullpath] eq "link")} { 177 if {[file type $fullpath] eq "link" && [file pathtype [file link $fullpath]] ne "relative"} { 178 # prepend $destroot to target of absolute symlinks 179 set checkpath ${destroot}${fullpath} 180 } else { 181 set checkpath $fullpath 182 } 178 183 # Make sure it is from glibtool ... "a libtool library file" will appear in the first line 179 if {![catch {set fp [open $ fullpath]}]} {184 if {![catch {set fp [open $checkpath]}]} { 180 185 if {[gets $fp line] > 0 && [string first "a libtool library file" $line] != -1} { 181 186 lappend la_file_list $fullpath 182 187 } 183 188 } else { 184 ui_debug "Failed to open $ fullpath"189 ui_debug "Failed to open $checkpath" 185 190 } 186 191 catch {close $fp}
Note: See TracChangeset
for help on using the changeset viewer.