Ticket #31702: patch-src-symlink.in.diff

src/macports1.0/macports.tcl

@@ -1273 +1273 @@
     $workername alias mport_lookup mportlookup
     $workername alias mport_info mportinfo
     $workername alias set_phase set_phase
+    $workername alias mport_select mportselect
 
     # instantiate the UI call-backs
     foreach priority $macports::ui_priorities {

src/port1.0/portuninstall.tcl

@@ -57 +57 @@
 }
 
 proc portuninstall::uninstall_main {args} {
-    global subport version revision portvariants user_options
+    global subport version revision portvariants user_options select.group select.file
     registry_uninstall $subport $version $revision $portvariants [array get user_options]
+
+    if {[info exists select.group] && [info exists select.file] } {
+        if {[mport_select show ${select.group}] eq ${select.file} } {
+            mport_select set ${select.group} "none"
+        }
+    }
+
     return 0
 }