Re-elevate privileges to place work symlink

macports · Apr 3, 2024 · 51511c8 · 51511c8
1 parent 55d389d
commit 51511c8
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/port1.0/portutil.tcl b/src/port1.0/portutil.tcl
@@ -1736,6 +1736,9 @@ proc open_statefile {args} {
         }
         # Create a symlink to the workpath for port authors
         if {[tbool place_worksymlink] && ![file isdirectory $worksymlink]} {
+            if {[getuid] == 0 && [geteuid] != 0} {
+                elevateToRoot place_worksymlink
+            }
             ui_debug "Attempting ln -sf $workpath $worksymlink"
             ln -sf $workpath $worksymlink
         }