<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/e82aae89297dd2b5616b9772372dc4ba8b6af724">https://github.com/macports/macports-base/commit/e82aae89297dd2b5616b9772372dc4ba8b6af724</a></p>
<pre style="white-space: pre; background: #F8F8F8"><span style='display:block; white-space:pre;color:#808000;'>commit e82aae89297dd2b5616b9772372dc4ba8b6af724
</span>Author: Joshua Root <jmr@macports.org>
AuthorDate: Tue Oct 20 10:42:58 2020 +1100

<span style='display:block; white-space:pre;color:#404040;'>    fetch_common: 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/port1.0/fetch_common.tcl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/port1.0/fetch_common.tcl b/src/port1.0/fetch_common.tcl
</span><span style='display:block; white-space:pre;color:#808080;'>index fec62786..bddfb65e 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/port1.0/fetch_common.tcl
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/port1.0/fetch_common.tcl
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -280,7 +280,7 @@ proc portfetch::sortsites {urls default_listvar} {
</span>             }
         }
 
<span style='display:block; white-space:pre;background:#ffe0e0;'>-        set pinged_hosts {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        set pinged_hosts [list]
</span>         foreach host $hosts {
             if {[llength $pinged_hosts] < $max_hosts_to_ping} {
                 if {[catch {set fds($host) [open "|ping -noq -c3 -t3 $host"]}]} {
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -315,7 +315,7 @@ proc portfetch::sortsites {urls default_listvar} {
</span>             seteuid $oldeuid
         }
 
<span style='display:block; white-space:pre;background:#ffe0e0;'>-        set pinglist {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        set pinglist [list]
</span>         foreach site $urllist {
             if {[string range $site 0 6] eq "file://"} {
                 set host localhost
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -340,7 +340,7 @@ proc portfetch::sortsites {urls default_listvar} {
</span> proc portfetch::get_urls {} {
     variable fetch_urls
     variable urlmap
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    set urls {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    set urls [list]
</span> 
     portfetch::checkfiles fetch_urls
 
</pre><pre style='margin:0'>

</pre>