Changeset 80894

Timestamp:

07/20/11 12:30:01 (4 years ago)

Author:

jmr@…

Message:

reacquire root privileges in portpkg if they were dropped

File:

• trunk/base/src/package1.0/portpkg.tcl (modified) (1 diff)

trunk/base/src/package1.0/portpkg.tcl

@@ -56 +56 @@
 
     ui_msg "$UI_PREFIX [format [msgcat::mc "Creating pkg for %s-%s"] ${subport} ${version}]"
+
+    if {[getuid] == 0 && [geteuid] != 0} {
+        elevateToRoot "pkg"
+    }
 
     return [package_pkg $subport $version $revision]