Revision
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

Diff

Modified: trunk/base/src/port1.0/portclean.tcl (69334 => 69335)


--- 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]} {