<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>