<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/8590e93e2061d4707de6b92e738fe5999d62af68">https://github.com/macports/macports-contrib/commit/8590e93e2061d4707de6b92e738fe5999d62af68</a></p>
<pre style="white-space: pre; background: #F8F8F8"><span style='display:block; white-space:pre;color:#808000;'>commit 8590e93e2061d4707de6b92e738fe5999d62af68
</span>Author: Joshua Root <jmr@macports.org>
AuthorDate: Mon May 17 13:53:42 2021 +1000

<span style='display:block; white-space:pre;color:#404040;'>    restore_ports.tcl: use eq not == for strings
</span>---
 restore_ports/restore_ports.tcl | 8 ++++----
 1 file changed, 4 insertions(+), 4 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 37a6e1f..adf3a57 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;'>@@ -93,7 +93,7 @@ proc sort_ports {portList} {
</span>         }
         #ui_msg "variants = $variants"
         set active 0
<span style='display:block; white-space:pre;background:#ffe0e0;'>-        if {[llength $remaining] > 0 && [lindex $remaining 0] == "(active)"} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        if {[llength $remaining] > 0 && [lindex $remaining 0] eq "(active)"} {
</span>             set active 1
         }
         #ui_msg "active = $active"
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -195,7 +195,7 @@ proc install_ports {operationList} {
</span> }
 
 proc read_portlist {filename} {
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    if {$filename == "-"} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    if {$filename eq "-"} {
</span>         set infile stdin
     } else {
         set infile [open $filename r]
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -203,7 +203,7 @@ proc read_portlist {filename} {
</span>     set data [read -nonewline $infile]
     set portList [split $data \n]
     close $infile
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    if {[lindex $portList 0] == "The following ports are currently installed:"} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    if {[lindex $portList 0] eq "The following ports are currently installed:"} {
</span>         set portList [lrange $portList 1 end]
     }
     return $portList
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -216,7 +216,7 @@ set showVersion 0
</span> array set ui_options {}
 
 set origArgv $::argv
<span style='display:block; white-space:pre;background:#ffe0e0;'>-while {[string index [lindex $::argv 0] 0] == "-" } {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+while {[string index [lindex $::argv 0] 0] eq "-"} {
</span>    switch [string range [lindex $::argv 0] 1 end] {
       h {
          printUsage
</pre><pre style='margin:0'>

</pre>