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

</pre>
<p><a href="https://github.com/macports/macports-base/commit/563474fa34c7006117d761ea41025b604e847bb8">https://github.com/macports/macports-base/commit/563474fa34c7006117d761ea41025b604e847bb8</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 563474fa Don't reuse possibly invalidated regrefs in upgrade
</span>563474fa is described below

<span style='display:block; white-space:pre;color:#808000;'>commit 563474fa34c7006117d761ea41025b604e847bb8
</span>Author: Joshua Root <jmr@macports.org>
AuthorDate: Fri Nov 26 13:29:57 2021 +1100

<span style='display:block; white-space:pre;color:#404040;'>    Don't reuse possibly invalidated regrefs in upgrade
</span><span style='display:block; white-space:pre;color:#404040;'>    
</span><span style='display:block; white-space:pre;color:#404040;'>    See: https://trac.macports.org/ticket/64028
</span>---
 src/macports1.0/macports.tcl | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/macports1.0/macports.tcl b/src/macports1.0/macports.tcl
</span><span style='display:block; white-space:pre;color:#808080;'>index 18109018..40d7a242 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/macports1.0/macports.tcl
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/macports1.0/macports.tcl
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -4322,6 +4322,10 @@ proc macports::_upgrade {portname dspec variationslist optionslist {depscachenam
</span>             _upgrade_cleanup
             return 1
         }
<span style='display:block; white-space:pre;background:#e0ffe0;'>+        # newregref is rendered invalid if the port was uninstalled
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        if {!$is_dryrun} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            unset newregref
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        }
</span>         if {!$force_cur} {
             unset options(ports_force)
         }
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -4405,6 +4409,10 @@ proc macports::_upgrade {portname dspec variationslist optionslist {depscachenam
</span>     }
 
     if {[info exists uninstall_later] && $uninstall_later} {
<span style='display:block; white-space:pre;background:#e0ffe0;'>+        if {[catch {registry::entry imaged $portname} ilist]} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            ui_error "Checking installed version failed: $ilist"
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            return 1
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        }
</span>         foreach i $ilist {
             set version [$i version]
             set revision [$i revision]
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -4412,7 +4420,6 @@ proc macports::_upgrade {portname dspec variationslist optionslist {depscachenam
</span>             if {$version eq $version_in_tree && $revision == $revision_in_tree && $variant eq $portinfo(canonical_active_variants) && $portname eq $newname} {
                 continue
             }
<span style='display:block; white-space:pre;background:#ffe0e0;'>-            set epoch [$i epoch]
</span>             ui_debug "Uninstalling $portname ${version}_${revision}$variant"
             if {$is_dryrun} {
                 ui_msg "Skipping uninstall $portname @${version}_${revision}$variant (dry run)"
</pre><pre style='margin:0'>

</pre>