Changeset 79150
- Timestamp:
- 06/03/11 05:45:42 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/gsoc11-post-destroot/base/src/port1.0/portpostdestroot.tcl
r79012 r79150 49 49 } 50 50 51 # Check for erro s on port symlinks51 # Check for errors on port symlinks 52 52 proc portpostdestroot::postdestroot_symlink_check {} { 53 53 global UI_PREFIX destroot prefix … … 57 57 if { [string compare [file pathtype $points_to] {absolute}] == 0 } { 58 58 if {[regexp $destroot $points_to]} { 59 ui_debug "Absolute link path poi ting to inside of destroot"59 ui_debug "Absolute link path pointing to inside of destroot" 60 60 return -code error "Absolute link path poiting to inside of destroot" 61 61 } else { … … 68 68 set return_delta [expr $return_depth - [regexp -all / $points_to_without_returns]] 69 69 if { $return_delta < $dir_depth } { 70 ui_debug "Relative link path poi ting to inside of destroot"70 ui_debug "Relative link path pointing to inside of destroot" 71 71 } else { 72 72 ui_debug "Relative link path poiting to outside of destroot"
Note: See TracChangeset
for help on using the changeset viewer.

