<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/c3030ec2df3f1f66d524582a891258e67db9247f">https://github.com/macports/macports-base/commit/c3030ec2df3f1f66d524582a891258e67db9247f</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 c3030ec2d check_dependents: fix missing UI_PREFIX
</span>c3030ec2d is described below

<span style='display:block; white-space:pre;color:#808000;'>commit c3030ec2df3f1f66d524582a891258e67db9247f
</span>Author: Joshua Root <jmr@macports.org>
AuthorDate: Sat Mar 16 11:56:48 2024 +1100

<span style='display:block; white-space:pre;color:#404040;'>    check_dependents: fix missing UI_PREFIX
</span>---
 src/registry2.0/registry_util.tcl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/registry2.0/registry_util.tcl b/src/registry2.0/registry_util.tcl
</span><span style='display:block; white-space:pre;color:#808080;'>index 5143fa3d5..1b1e163b3 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/registry2.0/registry_util.tcl
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/registry2.0/registry_util.tcl
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -37,6 +37,8 @@ package require tdbc::sqlite3
</span> 
 namespace eval registry {
 
<span style='display:block; white-space:pre;background:#e0ffe0;'>+variable UI_PREFIX {---> }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span> ## Decodes a version specifier into its component values. Values will be
 ## returned into the variables named by `version`, `revision`, and `variants`,
 ## with `revision` and `variants` possibly being set to the empty string if none
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -62,7 +64,7 @@ proc decode_spec {specifier version revision variants} {
</span> ## @param [in] port  a registry::entry to check
 ## @param [in] force if true, continue even if there are dependents
 proc check_dependents {port force {action "uninstall/deactivate"}} {
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    global UI_PREFIX
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    variable UI_PREFIX
</span>     set imaged [registry::entry imaged [$port name]]
     set imaged_len [llength $imaged]
     #foreach i $imaged {
</pre><pre style='margin:0'>

</pre>