[69335] trunk/base/src/port1.0/portclean.tcl

[jmr at macports.org]

Revision: 69335
          http://trac.macports.org/changeset/69335
Author:   jmr at 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]} {
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20100630/f02285a3/attachment.html>