<pre style='margin:0'>
Joshua Root (jmroot) pushed a commit to branch master
in repository macports-infrastructure.
</pre>
<p><a href="https://github.com/macports/macports-infrastructure/commit/6426ac6e1e72d19ec86d7420b773e4eae121a973">https://github.com/macports/macports-infrastructure/commit/6426ac6e1e72d19ec86d7420b773e4eae121a973</a></p>
<pre style="white-space: pre; background: #F8F8F8"><span style='display:block; white-space:pre;color:#808000;'>commit 6426ac6e1e72d19ec86d7420b773e4eae121a973
</span>Author: Joshua Root <jmr@macports.org>
AuthorDate: Fri Nov 12 00:50:53 2021 +1100
<span style='display:block; white-space:pre;color:#404040;'> distributable_lib: skip already-seen deps better
</span>---
jobs/distributable_lib.tcl | 7 +++++--
1 file changed, 5 insertions(+), 2 deletions(-)
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/jobs/distributable_lib.tcl b/jobs/distributable_lib.tcl
</span><span style='display:block; white-space:pre;color:#808080;'>index 3e32e56..fc9eb9d 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/jobs/distributable_lib.tcl
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/jobs/distributable_lib.tcl
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -234,10 +234,12 @@ proc check_licenses {portName variantInfo} {
</span>
# start with deps of top-level port
set portList [lindex $top_info 0]
<span style='display:block; white-space:pre;background:#e0ffe0;'>+ foreach p $portList {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set portSeen($p) 1
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ }
</span> while {[llength $portList] > 0} {
set aPort [lindex $portList 0]
<span style='display:block; white-space:pre;background:#ffe0e0;'>- # mark as seen and remove from the list
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- set portSeen($aPort) 1
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ # remove it from the list
</span> set portList [lreplace $portList 0 0]
if {[info exists noconflict_ports($aPort)]} {
continue
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -326,6 +328,7 @@ proc check_licenses {portName variantInfo} {
</span> foreach possiblyNewPort [lindex $aPortInfo 0] {
if {![info exists portSeen($possiblyNewPort)] && ![info exists aPort_noconflict_ports($possiblyNewPort)]} {
lappend portList $possiblyNewPort
<span style='display:block; white-space:pre;background:#e0ffe0;'>+ set portSeen($possiblyNewPort) 1
</span> }
}
}
</pre><pre style='margin:0'>
</pre>