Revision: 72783 http://trac.macports.org/changeset/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 Modified: trunk/base/src/package1.0/portdmg.tcl =================================================================== --- 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] } Modified: trunk/base/src/package1.0/portmdmg.tcl =================================================================== --- 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] }