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

[jmr at macports.org]

Revision: 66739
          http://trac.macports.org/changeset/66739
Author:   jmr at macports.org
Date:     2010-04-21 14:00:13 -0700 (Wed, 21 Apr 2010)
Log Message:
-----------
clean port dir in alt prefix along with work dir

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-04-21 20:54:49 UTC (rev 66738)
+++ trunk/base/src/port1.0/portclean.tcl	2010-04-21 21:00:13 UTC (rev 66739)
@@ -166,7 +166,7 @@
 }
 
 proc portclean::clean_work {args} {
-    global portbuildpath worksymlink usealtworkpath altprefix
+    global portbuildpath worksymlink usealtworkpath altprefix portpath
 
     if {[file isdirectory $portbuildpath]} {
         ui_debug "Removing directory: ${portbuildpath}"
@@ -193,6 +193,12 @@
         ui_debug "Removing symlink: $worksymlink"
         delete $worksymlink
     }
+    
+    # clean port dir in alt prefix
+    if {[file exists "${altprefix}${portpath}"]} {
+        ui_debug "removing ${altprefix}${portpath}"
+        delete "${altprefix}${portpath}"
+    }
 
     return 0
 }
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20100421/3aeb97db/attachment.html>