<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/cee44c4aed96e333d26f3e72aa3d8bdd154f98cd">https://github.com/macports/macports-base/commit/cee44c4aed96e333d26f3e72aa3d8bdd154f98cd</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 cee44c4a registry API usage fixes
</span>cee44c4a is described below

<span style='display:block; white-space:pre;color:#808000;'>commit cee44c4aed96e333d26f3e72aa3d8bdd154f98cd
</span>Author: Joshua Root <jmr@macports.org>
AuthorDate: Sat Jun 26 07:53:04 2021 +1000

<span style='display:block; white-space:pre;color:#404040;'>    registry API usage fixes
</span>---
 src/images_to_archives.tcl.in | 2 +-
 src/macports1.0/macports.tcl  | 6 +++---
 2 files changed, 4 insertions(+), 4 deletions(-)

<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/images_to_archives.tcl.in b/src/images_to_archives.tcl.in
</span><span style='display:block; white-space:pre;color:#808080;'>index d28665ec..ba768e70 100755
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/images_to_archives.tcl.in
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/images_to_archives.tcl.in
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -19,7 +19,7 @@ mportinit ui_options
</span> set tarcmd [macports::findBinary tar ${macports::autoconf::tar_path}]
 set bzip2cmd [macports::findBinary bzip2 ${macports::autoconf::bzip2_path}]
 
<span style='display:block; white-space:pre;background:#ffe0e0;'>-if {[catch {set ilist [registry::entry imaged]}]} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+if {[catch {registry::entry imaged} ilist] || $ilist eq {}} {
</span>     # no ports installed
     puts "No ports installed to convert."
     exit 0
<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 457ba8f0..0f361dae 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;'>@@ -3922,9 +3922,8 @@ proc macports::_upgrade {portname dspec variationslist optionslist {depscachenam
</span>     set portname $portinfo(name)
     set options(subport) $portname
 
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    set ilist {}
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-    if {[catch {set ilist [registry::entry imaged $portname]} result]} {
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-        if {$result eq "Registry error: $portname not registered as installed."} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    if {[catch {registry::entry imaged $portname} result] || $result eq {}} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        if {$result eq {}} {
</span>             ui_debug "$portname is *not* installed by MacPorts"
 
             # We need to pass _mportispresent a reference to the mport that is
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -3986,6 +3985,7 @@ proc macports::_upgrade {portname dspec variationslist optionslist {depscachenam
</span>     } else {
         # we'll now take care of upgrading it, so we can add it to the cache
         set depscache(port:$portname) 1
<span style='display:block; white-space:pre;background:#e0ffe0;'>+        set ilist $result
</span>     }
 
     # set version_in_tree and revision_in_tree
</pre><pre style='margin:0'>

</pre>