<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/39863e9980106f00bfe4cc2ecff88ef9ece5f7a1">https://github.com/macports/macports-base/commit/39863e9980106f00bfe4cc2ecff88ef9ece5f7a1</a></p>
<pre style="white-space: pre; background: #F8F8F8"><span style='display:block; white-space:pre;color:#808000;'>commit 39863e9980106f00bfe4cc2ecff88ef9ece5f7a1
</span>Author: Joshua Root <jmr@macports.org>
AuthorDate: Tue Oct 20 10:50:14 2020 +1100
<span style='display:block; white-space:pre;color:#404040;'> registry_util: init list vars with [list]
</span><span style='display:block; white-space:pre;color:#404040;'>
</span><span style='display:block; white-space:pre;color:#404040;'> This ensures they are pure lists.
</span>---
src/registry2.0/registry_util.tcl | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
<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 c9a35b63..5aca79c7 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;'>@@ -66,7 +66,7 @@ proc check_dependents {port force {action "uninstall/deactivate"}} {
</span> # Check if any installed ports depend on this one
set deplist [$port dependents]
if {$action eq "deactivate"} {
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set active_deplist {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set active_deplist [list]
</span> # Check if any active ports depend on this one
foreach p $deplist {
if {[$p state] eq "installed"} {
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -79,7 +79,7 @@ proc check_dependents {port force {action "uninstall/deactivate"}} {
</span> ## User Interaction Question
# ask if user wants to uninstall a port and thereby break its dependents
if {[info exists macports::ui_options(questions_yesno)] && ![string is true -strict $force]} {
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set portulist {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set portulist [list]
</span> foreach depport $deplist {
lappend portulist [$depport name]@[$depport version]_[$depport revision]
}
</pre><pre style='margin:0'>
</pre>