<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/f37cf5813d2d8580cf91d98b1bcb67995944f13e">https://github.com/macports/macports-base/commit/f37cf5813d2d8580cf91d98b1bcb67995944f13e</a></p>
<pre style="white-space: pre; background: #F8F8F8"><span style='display:block; white-space:pre;color:#808000;'>commit f37cf5813d2d8580cf91d98b1bcb67995944f13e
</span>Author: Joshua Root <jmr@macports.org>
AuthorDate: Tue Oct 20 10:51:31 2020 +1100
<span style='display:block; white-space:pre;color:#404040;'> receipt_sqlite: 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/receipt_sqlite.tcl | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/registry2.0/receipt_sqlite.tcl b/src/registry2.0/receipt_sqlite.tcl
</span><span style='display:block; white-space:pre;color:#808080;'>index 7adc2cb3..d89de2fc 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/registry2.0/receipt_sqlite.tcl
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/registry2.0/receipt_sqlite.tcl
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -231,7 +231,7 @@ proc installed {{name ""} {version ""}} {
</span> } elseif {$name ne "" && $version eq ""} {
set ports [registry::entry imaged $name]
} else {
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set ports {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set ports [list]
</span> set possible_ports [registry::entry imaged $name]
foreach p $possible_ports {
if {"[$p version]_[$p revision][$p variants]" eq $version || [$p version] eq $version} {
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -276,7 +276,7 @@ proc open_dep_map {args} {
</span> # criteria.
proc list_depends {name version revision variants} {
set rlist [list]
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set searchkeys {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set searchkeys [list]
</span> foreach key {name version revision} {
if {[set $key] ne ""} {
lappend searchkeys $key [set $key]
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -318,7 +318,7 @@ proc list_depends {name version revision variants} {
</span> # search criteria.
proc list_dependents {name version revision variants} {
set rlist [list]
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set searchkeys {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set searchkeys [list]
</span> foreach key {name version revision} {
if {[set $key] ne ""} {
lappend searchkeys $key [set $key]
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -381,7 +381,7 @@ proc create_entry_l {proplist} {
</span> if {[llength $props(imagefiles)] != [llength $props(files)]} {
# deal with this mess, just drop the extras...
set i 0
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set ilist {}; set flist {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set ilist [list]; set flist [list]
</span> while {$i < [llength $props(imagefiles)] && $i < [llength $props(files)]} {
lappend ilist [lindex $props(imagefiles) $i]
lappend flist [lindex $props(files) $i]
</pre><pre style='margin:0'>
</pre>