<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/a494d3e1dee9868770472a64513bf35827fa955d">https://github.com/macports/macports-base/commit/a494d3e1dee9868770472a64513bf35827fa955d</a></p>
<pre style="white-space: pre; background: #F8F8F8"><span style='display:block; white-space:pre;color:#808000;'>commit a494d3e1dee9868770472a64513bf35827fa955d
</span>Author: Joshua Root <jmr@macports.org>
AuthorDate: Tue Oct 20 10:54:25 2020 +1100
<span style='display:block; white-space:pre;color:#404040;'> macports_dlist: 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/macports1.0/macports_dlist.tcl | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/macports1.0/macports_dlist.tcl b/src/macports1.0/macports_dlist.tcl
</span><span style='display:block; white-space:pre;color:#808080;'>index e5eec12f..b43ccb69 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/macports1.0/macports_dlist.tcl
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/macports1.0/macports_dlist.tcl
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -58,7 +58,7 @@ package provide macports_dlist 1.0
</span> # criteria - the key/value pairs to compare
proc dlist_match_multi {dlist criteria} {
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set result {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set result [list]
</span> foreach ditem $dlist {
set match 1
foreach {key value} $criteria {
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -81,7 +81,7 @@ proc dlist_match_multi {dlist criteria} {
</span> # value - the value to compare
proc dlist_search {dlist key value} {
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set result {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set result [list]
</span> foreach ditem $dlist {
if {[ditem_contains $ditem $key $value]} {
lappend result $ditem
</pre><pre style='margin:0'>
</pre>