<pre style='margin:0'>
Joshua Root (jmroot) pushed a commit to branch master
in repository macports-infrastructure.

</pre>
<p><a href="https://github.com/macports/macports-infrastructure/commit/993e741803f5d42e999754234171e41954bacf0b">https://github.com/macports/macports-infrastructure/commit/993e741803f5d42e999754234171e41954bacf0b</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 993e741  init list vars with [list] so they are pure lists
</span>993e741 is described below

<span style='display:block; white-space:pre;color:#808000;'>commit 993e741803f5d42e999754234171e41954bacf0b
</span>Author: Joshua Root <jmr@macports.org>
AuthorDate: Tue Oct 20 10:25:18 2020 +1100

<span style='display:block; white-space:pre;color:#404040;'>    init list vars with [list] so they are pure lists
</span>---
 jobs/delete_old_distfiles.tcl | 6 +++---
 jobs/distributable_lib.tcl    | 8 ++++----
 2 files changed, 7 insertions(+), 7 deletions(-)

<span style='display:block; white-space:pre;color:#808080;'>diff --git a/jobs/delete_old_distfiles.tcl b/jobs/delete_old_distfiles.tcl
</span><span style='display:block; white-space:pre;color:#808080;'>index 388b280..54f8aa0 100755
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/jobs/delete_old_distfiles.tcl
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/jobs/delete_old_distfiles.tcl
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -29,7 +29,7 @@ proc get_variants {portinfovar} {
</span>     if {![info exists portinfo(vinfo)]} {
         return {}
     }
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    set variants {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    set variants [list]
</span>     array set vinfo $portinfo(vinfo)
     foreach v [array names vinfo] {
         array unset variant
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -104,7 +104,7 @@ proc add_distfiles {porturl subport distfiles_var check_platforms} {
</span>     }
 }
 
<span style='display:block; white-space:pre;background:#ffe0e0;'>-set distfiles_to_keep {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+set distfiles_to_keep [list]
</span> if {[info exists keepfile]} {
     set fd [open $keepfile r]
     while {[gets $fd line] != -1} {
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -117,7 +117,7 @@ if {[info exists keepfile]} {
</span>     file delete -force ${portfile_dir}
     file mkdir ${portfile_dir}
     foreach {portname info_list} $result {
<span style='display:block; white-space:pre;background:#ffe0e0;'>-        set portname_distfiles {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        set portname_distfiles [list]
</span>         array unset portinfo
         array set portinfo $info_list
         if {[lsearch -exact -nocase $portinfo(license) "nomirror"] >= 0} {
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/jobs/distributable_lib.tcl b/jobs/distributable_lib.tcl
</span><span style='display:block; white-space:pre;color:#808080;'>index 260f92d..b7984d1 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/jobs/distributable_lib.tcl
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/jobs/distributable_lib.tcl
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -157,7 +157,7 @@ proc infoForPort {portName variantInfo} {
</span>         }
     }
 
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    set dependencyList {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    set dependencyList [list]
</span>     set mport [mportopen $portInfo(porturl) [list subport $portInfo(name)] $variantInfo]
     array unset portInfo
     array set portInfo [mportinfo $mport]
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -211,12 +211,12 @@ proc check_licenses {portName variantInfo} {
</span>     foreach noconflict_port [lindex $top_info 3] {
         set noconflict_ports($noconflict_port) 1
     }
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    set top_license_names {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    set top_license_names [list]
</span>     # check that top-level port's license(s) are good
     foreach sublist $top_license {
         # each element may be a list of alternatives (i.e. only one need apply)
         set any_good 0
<span style='display:block; white-space:pre;background:#ffe0e0;'>-        set sub_names {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        set sub_names [list]
</span>         foreach full_lic $sublist {
             # chop off any trailing version number
             set lic [remove_version [string tolower $full_lic]]
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -315,7 +315,7 @@ proc check_licenses {portName variantInfo} {
</span> # given a variant string, return an array of variations
 set split_variants_re {([-+])([[:alpha:]_]+[\w\.]*)}
 proc split_variants {variants} {
<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>     set l [regexp -all -inline -- $::split_variants_re $variants]
     foreach { match sign variant } $l {
         lappend result $variant $sign
</pre><pre style='margin:0'>

</pre>