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

</pre>
<p><a href="https://github.com/macports/macports-contrib/commit/7cc266c464662eed5f030c9e0efa2f10ab9f28da">https://github.com/macports/macports-contrib/commit/7cc266c464662eed5f030c9e0efa2f10ab9f28da</a></p>
<pre style="white-space: pre; background: #F8F8F8"><span style='display:block; white-space:pre;color:#808000;'>commit 7cc266c464662eed5f030c9e0efa2f10ab9f28da
</span>Author: Joshua Root <jmr@macports.org>
AuthorDate: Sat Apr 1 11:42:24 2023 +1100

<span style='display:block; white-space:pre;color:#404040;'>    restore_ports: remove commented-out code
</span>---
 restore_ports/restore_ports.tcl | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

<span style='display:block; white-space:pre;color:#808080;'>diff --git a/restore_ports/restore_ports.tcl b/restore_ports/restore_ports.tcl
</span><span style='display:block; white-space:pre;color:#808080;'>index a2f93b6..179bab4 100755
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/restore_ports/restore_ports.tcl
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/restore_ports/restore_ports.tcl
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -59,7 +59,6 @@ proc sort_ports {portList} {
</span>     set search_str_len [string length $search_str]
     foreach port $portList {
         set name [lindex $port 0]
<span style='display:block; white-space:pre;background:#ffe0e0;'>-        #ui_msg "name = $name"
</span>         set version [lindex $port 1]
         set remaining [lrange $port 2 end]
         set variants ""
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -91,12 +90,11 @@ proc sort_ports {portList} {
</span>                 set variantstr [string range $variantstr 0 ${next}-1]
             }
         }
<span style='display:block; white-space:pre;background:#ffe0e0;'>-        #ui_msg "variants = $variants"
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span>         set active 0
         if {[llength $remaining] > 0 && [lindex $remaining 0] eq "(active)"} {
             set active 1
         }
<span style='display:block; white-space:pre;background:#ffe0e0;'>-        #ui_msg "active = $active"
</span> 
         if {![info exists port_in_list($name)]} {
             set port_in_list($name) 1
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -133,10 +131,7 @@ proc sort_ports {portList} {
</span>                 lappend operationList [list $name $variants $active]
                 incr port_installed($name)
                 set index [lsearch -exact $newList [list $active $name $variants]]
<span style='display:block; white-space:pre;background:#ffe0e0;'>-                #ui_msg "deleting \"[list $active $name $variants]\" from list"
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-                #ui_msg "list with element: $newList"
</span>                 set newList [lreplace $newList $index $index]
<span style='display:block; white-space:pre;background:#ffe0e0;'>-                #ui_msg "list without element: $newList"
</span>             }
         }
         if {[llength $newList] == $oldLen} {
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -296,7 +291,6 @@ if {[llength $::argv] == 0} {
</span>     set filename [lindex $::argv 0]
 }
 set portList [read_portlist $filename]
<span style='display:block; white-space:pre;background:#ffe0e0;'>-#ui_msg "portlist = $portList"
</span> 
 set operationList [sort_ports $portList]
 
</pre><pre style='margin:0'>

</pre>