[54749] trunk/base/src/port1.0/portutil.tcl

[jmr at macports.org]

Revision: 54749
          http://trac.macports.org/changeset/54749
Author:   jmr at macports.org
Date:     2009-08-01 11:15:43 -0700 (Sat, 01 Aug 2009)
Log Message:
-----------
fix deleting workpath when portfile has changed

Modified Paths:
--------------
    trunk/base/src/port1.0/portutil.tcl

Modified: trunk/base/src/port1.0/portutil.tcl
===================================================================
--- trunk/base/src/port1.0/portutil.tcl	2009-08-01 17:33:46 UTC (rev 54748)
+++ trunk/base/src/port1.0/portutil.tcl	2009-08-01 18:15:43 UTC (rev 54749)
@@ -1497,11 +1497,11 @@
 # open file to store name of completed targets
 proc open_statefile {args} {
     global workpath worksymlink place_worksymlink name portpath ports_ignore_older
-    global usealtworkpath altprefix env applications_dir
+    global usealtworkpath altprefix env applications_dir portbuildpath
 
     if {![file isdirectory $workpath]} {
         file mkdir $workpath
-        chownAsRoot $workpath
+        chownAsRoot $portbuildpath
     }
     
     if { [getuid] != 0 } {
@@ -1541,7 +1541,8 @@
         if {!([info exists ports_ignore_older] && $ports_ignore_older == "yes") && [file mtime $statefile] < [file mtime ${portpath}/Portfile]} {
             if {!([info exists ports_dryrun] && $ports_dryrun == "yes")} {
                 ui_msg "Portfile changed since last build; discarding previous state."
-                eval delete [glob -nocomplain -directory -- $workpath * .*]
+                delete $workpath
+                file mkdir $workpath
             } else {
                 ui_msg "Portfile changed since last build but not discarding previous state (dry run)"
             }
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20090801/1ee28697/attachment.html>