Revision: 69335 http://trac.macports.org/changeset/69335 Author: jmr@macports.org Date: 2010-06-30 18:30:34 -0700 (Wed, 30 Jun 2010) Log Message: ----------- only print file name (not full path) in initial clean_dist debug message Modified Paths: -------------- trunk/base/src/port1.0/portclean.tcl Modified: trunk/base/src/port1.0/portclean.tcl =================================================================== --- trunk/base/src/port1.0/portclean.tcl 2010-07-01 01:25:24 UTC (rev 69334) +++ trunk/base/src/port1.0/portclean.tcl 2010-07-01 01:30:34 UTC (rev 69335) @@ -97,8 +97,9 @@ # remove known distfiles for sure (if they exist) set count 0 foreach file $distfiles { - set distfile [file join $distpath [getdistname $file]] + set distfile [getdistname $file] ui_debug "Looking for $distfile" + set distfile [file join $distpath $distfile] if {[file isfile $distfile]} { ui_debug "Removing file: $distfile" if {[catch {delete $distfile} result]} { @@ -124,8 +125,9 @@ set count 0 foreach file [option patchfiles] { - set patchfile [file join $distpath [getdistname $file]] + set patchfile [getdistname $file] ui_debug "Looking for $patchfile" + set patchfile [file join $distpath $patchfile] if {[file isfile $patchfile]} { ui_debug "Removing file: $patchfile" if {[catch {delete $patchfile} result]} {