<pre style='margin:0'>
Joshua Root (jmroot) pushed a commit to branch master
in repository macports-base.

</pre>
<p><a href="https://github.com/macports/macports-base/commit/85438c2898ea849ce8543b676b4da529cd0dadc9">https://github.com/macports/macports-base/commit/85438c2898ea849ce8543b676b4da529cd0dadc9</a></p>
<pre style="white-space: pre; background: #F8F8F8">The following commit(s) were added to refs/heads/master by this push:
<span style='display:block; white-space:pre;color:#404040;'>     new 85438c289 Interactively confirm uninstalling all active ports
</span>85438c289 is described below

<span style='display:block; white-space:pre;color:#808000;'>commit 85438c2898ea849ce8543b676b4da529cd0dadc9
</span>Author: Joshua Root <jmr@macports.org>
AuthorDate: Mon May 26 12:54:59 2025 +1000

<span style='display:block; white-space:pre;color:#404040;'>    Interactively confirm uninstalling all active ports
</span><span style='display:block; white-space:pre;color:#404040;'>    
</span><span style='display:block; white-space:pre;color:#404040;'>    Fixes: https://trac.macports.org/ticket/46229
</span>---
 src/port/port.tcl | 13 +++++++++++++
 1 file changed, 13 insertions(+)

<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/port/port.tcl b/src/port/port.tcl
</span><span style='display:block; white-space:pre;color:#808080;'>index deae1ee6f..d10962455 100755
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/port/port.tcl
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/port/port.tcl
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -3050,6 +3050,19 @@ proc action_uninstall { action portlist opts } {
</span>         return 1
     }
 
<span style='display:block; white-space:pre;background:#e0ffe0;'>+    # Confirm uninstallation if it looks like all active ports have
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    # been specified, provided that is a reasonably large number.
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    global macports::ui_options
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    if {[info exists ui_options(questions_yesno)]} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        set portlist_len [llength $portlist]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        if {$portlist_len > 5 && $portlist_len >= [llength [registry::entry installed]]} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            set retvalue [$ui_options(questions_yesno) {} "UninstallMany" {} {n} 0 "Uninstall $portlist_len ports?"]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            if {$retvalue != 0} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                return 0
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span>     set portlist [portlist_sortdependents $portlist]
 
     foreachport $portlist {
</pre><pre style='margin:0'>

</pre>