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

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

<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/registry2.0/portuninstall.tcl b/src/registry2.0/portuninstall.tcl
</span><span style='display:block; white-space:pre;color:#808080;'>index 8133de42..01b838a7 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/registry2.0/portuninstall.tcl
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/registry2.0/portuninstall.tcl
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -44,7 +44,7 @@ namespace eval registry_uninstall {
</span> proc generate_deplist {port {optslist ""}} {
 
     set deptypes {depends_fetch depends_extract depends_build depends_lib depends_run depends_test}
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    set all_dependencies {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    set all_dependencies [list]
</span>     # look up deps from the saved portfile if possible
     if {![catch {set mport [mportopen_installed [$port name] [$port version] [$port revision] [$port variants] $optslist]}]} {
         array set depportinfo [mportinfo $mport]
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -71,7 +71,7 @@ proc generate_deplist {port {optslist ""}} {
</span>         if {![catch {mportlookup $portname} result] && [llength $result] >= 2} {
             array set depportinfo [lindex $result 1]
             set porturl $depportinfo(porturl)
<span style='display:block; white-space:pre;background:#ffe0e0;'>-            set variations {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            set variations [list]
</span>             set minusvariant [lrange [split [registry::property_retrieve $port negated_variants] -] 1 end]
             set plusvariant [lrange [split [$port variants] +] 1 end]
             foreach v $plusvariant {
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -287,12 +287,12 @@ proc uninstall {portname {version ""} {revision ""} {variants 0} {optionslist ""
</span>     }
 
     if {![info exists uports]} {
<span style='display:block; white-space:pre;background:#ffe0e0;'>-        set uports {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        set uports [list]
</span>     }
     # create list of all dependencies that will be uninstalled, if requested
     if {[info exists options(ports_uninstall_follow-dependencies)] && [string is true -strict $options(ports_uninstall_follow-dependencies)]} {
         set alldeps $all_dependencies
<span style='display:block; white-space:pre;background:#ffe0e0;'>-        set portilist {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        set portilist [list]
</span>         for {set j 0} {$j < [llength $alldeps]} {incr j} {
             set dep [lindex $alldeps $j]
             set uninstalling_this_dep 0
</pre><pre style='margin:0'>

</pre>