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

</pre>
<p><a href="https://github.com/macports/mpbb/commit/e996d2926f1fe70cf506a306776dc468b4cd9f3b">https://github.com/macports/mpbb/commit/e996d2926f1fe70cf506a306776dc468b4cd9f3b</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 e996d29  dependencies.tcl: bug fix
</span>e996d29 is described below

<span style='display:block; white-space:pre;color:#808000;'>commit e996d2926f1fe70cf506a306776dc468b4cd9f3b
</span>Author: Joshua Root <jmr@macports.org>
AuthorDate: Sun May 15 03:36:04 2022 +1000

<span style='display:block; white-space:pre;color:#404040;'>    dependencies.tcl: bug fix
</span><span style='display:block; white-space:pre;color:#404040;'>    
</span><span style='display:block; white-space:pre;color:#404040;'>    Deactivate ports with old default variants themselves, not just their
</span><span style='display:block; white-space:pre;color:#404040;'>    dependents. Also add messages to make it clearer which deactivations
</span><span style='display:block; white-space:pre;color:#404040;'>    are for this reason.
</span>---
 tools/dependencies.tcl | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

<span style='display:block; white-space:pre;color:#808080;'>diff --git a/tools/dependencies.tcl b/tools/dependencies.tcl
</span><span style='display:block; white-space:pre;color:#808080;'>index 6694118..15df81b 100755
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/tools/dependencies.tcl
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/tools/dependencies.tcl
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -274,6 +274,7 @@ proc deactivate_unneeded {portinfovar} {
</span>     }
 
     set dependents_check_list [list]
<span style='display:block; white-space:pre;background:#e0ffe0;'>+    puts "Deactivating unneeded ports:"
</span>     foreach e [registry::entry installed] {
         # Deactivate everything we don't need and also ports we do need that
         # are active with an old version or non-default variants. The
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -293,11 +294,13 @@ proc deactivate_unneeded {portinfovar} {
</span>             if {$entryinfo(version) ne [$e version]
                     || $entryinfo(revision) != [$e revision]
                     || $entryinfo(canonical_active_variants) ne [$e variants]} {
<span style='display:block; white-space:pre;background:#ffe0e0;'>-                lappend dependents_check_list {*}[$e dependents]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                lappend dependents_check_list $e
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                puts stderr "[$e name] installed version @[$e version]_[$e revision][$e variants] doesn't match tree version $entryinfo(version)_$entryinfo(revision)$entryinfo(canonical_active_variants)"
</span>             }
         }
     }
     # also deactivate dependents of any needed deactivated ports
<span style='display:block; white-space:pre;background:#e0ffe0;'>+    puts "Deactivating ports with differing versions/variants and their dependents:"
</span>     while {$dependents_check_list ne ""} {
         set e [lindex $dependents_check_list end]
         set dependents_check_list [lreplace ${dependents_check_list}[set dependents_check_list {}] end end]
</pre><pre style='margin:0'>

</pre>