<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/93e3436919ed2483f9f304905c9b6551a161f51b">https://github.com/macports/mpbb/commit/93e3436919ed2483f9f304905c9b6551a161f51b</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 93e3436  gather-archives.tcl: don't consider outdated versions
</span>93e3436 is described below

<span style='display:block; white-space:pre;color:#808000;'>commit 93e3436919ed2483f9f304905c9b6551a161f51b
</span>Author: Joshua Root <jmr@macports.org>
AuthorDate: Wed Mar 2 17:18:28 2022 +1100

<span style='display:block; white-space:pre;color:#404040;'>    gather-archives.tcl: don't consider outdated versions
</span>---
 tools/gather-archives.tcl | 17 ++++++++++++++++-
 1 file changed, 16 insertions(+), 1 deletion(-)

<span style='display:block; white-space:pre;color:#808080;'>diff --git a/tools/gather-archives.tcl b/tools/gather-archives.tcl
</span><span style='display:block; white-space:pre;color:#808080;'>index d6f0e66..a720836 100755
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/tools/gather-archives.tcl
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/tools/gather-archives.tcl
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -64,8 +64,23 @@ set staging_device $stat_array(dev)
</span> set infd [open [lindex $::argv 0] r]
 while {[gets $infd line] >= 0} {
     set portname [lindex [split $line] 0]
<span style='display:block; white-space:pre;background:#e0ffe0;'>+    if {[catch {mportlookup $portname} result]} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        puts stderr "$errorInfo"
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        puts stderr "Failed to look up port '$portname': $result"
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        continue
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    } elseif {[llength $result] < 2} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        puts stderr "port $portname not found in the index"
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        continue
</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;'>+    array unset portinfo
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    array set portinfo [lindex $result 1]
</span> 
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    foreach e [registry::entry imaged $portname] {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    foreach e [registry::entry imaged $portinfo(name)] {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        if {[$e version] ne $portinfo(version) || [$e revision] != $portinfo(revision)} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            puts "Skipping [$e name] @[$e version]_[$e revision][$e variants] (not current)"
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            continue
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        }
</span>         set requested_variations [split_variants [$e requested_variants]]
         
         lassign [check_licenses [$e name] $requested_variations] license_result license_reason
</pre><pre style='margin:0'>

</pre>