[72236] trunk/base/src/package1.0/portunarchive.tcl

[jmr at macports.org]

Revision: 72236
          http://trac.macports.org/changeset/72236
Author:   jmr at macports.org
Date:     2010-10-07 19:45:55 -0700 (Thu, 07 Oct 2010)
Log Message:
-----------
fix permissions problems with unarchiving as root

Modified Paths:
--------------
    trunk/base/src/package1.0/portunarchive.tcl

Modified: trunk/base/src/package1.0/portunarchive.tcl
===================================================================
--- trunk/base/src/package1.0/portunarchive.tcl	2010-10-08 02:23:19 UTC (rev 72235)
+++ trunk/base/src/package1.0/portunarchive.tcl	2010-10-08 02:45:55 UTC (rev 72236)
@@ -294,10 +294,8 @@
     set statefile [file join $workpath .macports.${name}.state]
     file copy -force [file join $destpath "+STATE"] $statefile
     file mtime $statefile [clock seconds]
+    chownAsRoot $statefile
 
-    # Update the state from unpacked archive version
-    set target_state_fd [open_statefile]
-
     # Cleanup all control files when finished
     set control_files [glob -nocomplain -types f [file join $destpath +*]]
     foreach file $control_files {
@@ -305,6 +303,9 @@
         file delete -force $file
     }
 
+    # Update the state from unpacked archive version
+    set target_state_fd [open_statefile]
+
     ui_info "$UI_PREFIX [format [msgcat::mc "Archive %s unpacked"] ${unarchive.file}]"
     return 0
 }
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20101007/e36ba824/attachment-0001.html>