Ticket #25671: unprivileged_install_error.diff

src/port1.0/portutil.tcl

@@ -1449 +1449 @@
 
 
 proc eval_targets {target} {
-    global targets target_state_fd name version revision portvariants epoch ports_dryrun user_options
+    global targets target_state_fd name version revision portvariants epoch ports_dryrun user_options usealtworkpath
     set dlist $targets
 
+    if {$usealtworkpath && ($target == "install" || $target == "activate")} {
+        return -code error "insufficient privileges to run target '$target'"
+    }
+
     # the statefile will likely be autocleaned away after install,
     # so special-case already-completed install and activate
     if {[registry_exists $name $version $revision $portvariants]} {