<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/fedba9e29406f442a0890065e0489f8641525ff0">https://github.com/macports/mpbb/commit/fedba9e29406f442a0890065e0489f8641525ff0</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 fedba9e  dependencies.tcl: remove workarounds for old base
</span>fedba9e is described below

<span style='display:block; white-space:pre;color:#808000;'>commit fedba9e29406f442a0890065e0489f8641525ff0
</span>Author: Joshua Root <jmr@macports.org>
AuthorDate: Tue Nov 15 17:48:55 2022 +1100

<span style='display:block; white-space:pre;color:#404040;'>    dependencies.tcl: remove workarounds for old base
</span>---
 tools/dependencies.tcl | 45 +++++++++++++++++----------------------------
 1 file changed, 17 insertions(+), 28 deletions(-)

<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 1249dbd..607537f 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;'>@@ -194,7 +194,7 @@ proc collect_deps {portinfovar retvar} {
</span>     }
 }
 
<span style='display:block; white-space:pre;background:#ffe0e0;'>-# return mantainer email addresses for the given port names
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+# return maintainer email addresses for the given port names
</span> proc get_maintainers {args} {
     set retlist [list]
     foreach portname $args {
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -327,7 +327,6 @@ proc deactivate_unneeded {portinfovar} {
</span>     # earlier - it most likely won't be used again (and will be
     # reopened in the uncommon case that it is needed.)
     foreach e [registry::entry installed] {
<span style='display:block; white-space:pre;background:#ffe0e0;'>-        ditem_key $mports_array([$e name]) refcnt 1
</span>         mportclose $mports_array([$e name])
     }
 }
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -426,10 +425,7 @@ proc install_dep {ditem} {
</span>     if {[registry::entry imaged $depinfo(name) $depinfo(version) $depinfo(revision) $depinfo(canonical_active_variants)] ne ""} {
         puts "Already installed, nothing to do"
         puts $::log_status_dependencies {[OK]}
<span style='display:block; white-space:pre;background:#ffe0e0;'>-        catch {
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-            ditem_key $ditem refcnt 1
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-            mportclose $ditem
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-        }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        catch {mportclose $ditem}
</span>         return
     }
     # clean up any work directories left over from earlier
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -479,19 +475,28 @@ proc install_dep {ditem} {
</span>         }
 
         # Fetch and checksum the distfiles
<span style='display:block; white-space:pre;background:#ffe0e0;'>-        # (Bad things happen if you run fetch and checksum separately on the same mport, because
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-        # init functions get called twice and add duplicate distfiles. Yes, that's a bug.)
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-        if {[catch {mportexec $ditem checksum} result]} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        if {[catch {mportexec $ditem fetch} result]} {
</span>             puts stderr $::errorInfo
<span style='display:block; white-space:pre;background:#ffe0e0;'>-            ui_error "Checksum failed: $result"
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            ui_error "Fetch failed: $result"
</span>             set fail 1
         }
         if {$fail || $result > 0} {
<span style='display:block; white-space:pre;background:#ffe0e0;'>-            puts stderr "Fetch/checksum of dependency '$depinfo(name)' with variants '$depinfo(canonical_active_variants)' failed, aborting."
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            puts stderr "Fetch of dependency '$depinfo(name)' with variants '$depinfo(canonical_active_variants)' failed, aborting."
</span>             puts $::log_status_dependencies {[FAIL] (fetch)}
             puts $::log_subports_progress "Building '$::portname' ... \[ERROR\] (failed to fetch dependency '$depinfo(name)') maintainers: [get_maintainers $::portname $depinfo(name)]."
             exit 1
         }
<span style='display:block; white-space:pre;background:#e0ffe0;'>+        if {[catch {mportexec $ditem checksum} result]} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            puts stderr $::errorInfo
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            ui_error "Checksum failed: $result"
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            set fail 1
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        if {$fail || $result > 0} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            puts stderr "Checksum of dependency '$depinfo(name)' with variants '$depinfo(canonical_active_variants)' failed, aborting."
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            puts $::log_status_dependencies {[FAIL] (checksum)}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            puts $::log_subports_progress "Building '$::portname' ... \[ERROR\] (failed to checksum dependency '$depinfo(name)') maintainers: [get_maintainers $::portname $depinfo(name)]."
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            exit 1
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        }
</span>         # Deactivate ports not needed for this build so they don't interfere
         deactivate_unneeded depinfo
         # Now install
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -515,24 +520,8 @@ proc install_dep {ditem} {
</span>         if {$::failcache_dir ne ""} {
             failcache_update $depinfo(name) [ditem_key $ditem porturl] $depinfo(canonical_active_variants) 0
         }
<span style='display:block; white-space:pre;background:#ffe0e0;'>-        # The interp delete hack in _mportexec makes the mport of
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-        # dependencies basically unusable after installing. Fortunately
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-        # they should all have been processed previously, being
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-        # dependencies. Make sure they all get closed now even if there
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-        # are dangling refs. Then mportexec will open fresh copies if
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-        # needed later.
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-        foreach mport $macports::open_mports {
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-            set workername [ditem_key $mport workername]
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-            if {$workername eq "" || ![interp exists $workername]} {
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-                ditem_key $mport refcnt 1
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-                mportclose $mport
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-            }
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-        }
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-    }
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-    catch {
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-        ditem_key $ditem refcnt 1
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-        mportclose $ditem
</span>     }
<span style='display:block; white-space:pre;background:#e0ffe0;'>+    catch {mportclose $ditem}
</span>     puts $::log_status_dependencies {[OK]}
 }
 
</pre><pre style='margin:0'>

</pre>