Revision

72783

Author

jmr@macports.org

Date

2010-10-26 12:34:37 -0700 (Tue, 26 Oct 2010)

Log Message

reacquire root privileges for dmg/mdmg (doesn't seem like this should be necessary, but hdiutil claims "permission denied" otherwise...)

Modified Paths

• trunk/base/src/package1.0/portdmg.tcl
• trunk/base/src/package1.0/portmdmg.tcl

Diff

--- trunk/base/src/package1.0/portdmg.tcl	2010-10-26 19:34:05 UTC (rev 72782)
+++ trunk/base/src/package1.0/portdmg.tcl	2010-10-26 19:34:37 UTC (rev 72783)
@@ -45,9 +45,13 @@
 
 proc portdmg::dmg_main {args} {
     global name version revision package.destpath UI_PREFIX
-    
+
     ui_msg "$UI_PREFIX [format [msgcat::mc "Creating disk image for %s-%s"] ${name} ${version}]"
-    
+
+    if {[getuid] == 0 && [geteuid] != 0} {
+		setegid 0; seteuid 0
+	}
+
     return [package_dmg $name $version $revision]
 }
 

--- trunk/base/src/package1.0/portmdmg.tcl	2010-10-26 19:34:05 UTC (rev 72782)
+++ trunk/base/src/package1.0/portmdmg.tcl	2010-10-26 19:34:37 UTC (rev 72783)
@@ -45,9 +45,13 @@
 
 proc portmdmg::mdmg_main {args} {
     global name version revision package.destpath UI_PREFIX
-    
+
     ui_msg "$UI_PREFIX [format [msgcat::mc "Creating disk image for %s-%s"] ${name} ${version}]"
-    
+
+    if {[getuid] == 0 && [geteuid] != 0} {
+		setegid 0; seteuid 0
+	}
+
     return [package_mdmg $name $version $revision]
 }