<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/e4a42da6a4abc7fce9a20c557d57d01d376290be">https://github.com/macports/mpbb/commit/e4a42da6a4abc7fce9a20c557d57d01d376290be</a></p>
<pre style="white-space: pre; background: #F8F8F8"><span style='display:block; white-space:pre;color:#808000;'>commit e4a42da6a4abc7fce9a20c557d57d01d376290be
</span>Author: Joshua Root <jmr@macports.org>
AuthorDate: Sun Sep 29 16:11:58 2019 +1000

<span style='display:block; white-space:pre;color:#404040;'>    sort-with-subports: exclude ports known to fail
</span><span style='display:block; white-space:pre;color:#404040;'>    
</span><span style='display:block; white-space:pre;color:#404040;'>    References: https://trac.macports.org/ticket/59051
</span>---
 tools/sort-with-subports.tcl | 18 ++++++++++++++----
 1 file changed, 14 insertions(+), 4 deletions(-)

<span style='display:block; white-space:pre;color:#808080;'>diff --git a/tools/sort-with-subports.tcl b/tools/sort-with-subports.tcl
</span><span style='display:block; white-space:pre;color:#808080;'>index 75f0554..9e8b77e 100755
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/tools/sort-with-subports.tcl
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/tools/sort-with-subports.tcl
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -106,7 +106,9 @@ while {$todo ne {}} {
</span>                 if {![info exists portdepinfo($splower)]} {
                     lappend todo $splower
                 }
<span style='display:block; white-space:pre;background:#ffe0e0;'>-                set outputports($splower) 1
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                if {![info exists outputports($splower)]} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                    set outputports($splower) 1
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                }
</span>             }
         }
         set deplist [list]
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -120,8 +122,16 @@ while {$todo ne {}} {
</span>             }
         }
         set portdepinfo($p) $deplist
<span style='display:block; white-space:pre;background:#ffe0e0;'>-        if {[info exists outputports($p)]} {
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-            set canonicalnames($p) $portinfo(name)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        if {[info exists outputports($p)] && $outputports($p) == 1} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            if {[info exists portinfo(replaced_by)]} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                puts stderr "Excluding $portinfo(name) because it is replaced by $portinfo(replaced_by)"
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                set outputports($p) 0
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            } elseif {[info exists portinfo(known_fail)] && [string is true -strict $portinfo(known_fail)]} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                puts stderr "Excluding $portinfo(name) because it is known to fail"
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                set outputports($p) 0
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            } else {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                set canonicalnames($p) $portinfo(name)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            }
</span>         }
         array unset portinfo
     }
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -135,7 +145,7 @@ foreach portname [lsort -dictionary [array names portdepinfo]] {
</span> }
 
 foreach portname $portlist {
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    if {[info exists outputports($portname)]} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    if {[info exists outputports($portname)] && $outputports($portname) == 1} {
</span>         puts $canonicalnames($portname)
     }
 }
</pre><pre style='margin:0'>

</pre>