<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/8d945d0549d834f739f2f462f74a5030ca2f002d">https://github.com/macports/macports-base/commit/8d945d0549d834f739f2f462f74a5030ca2f002d</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 8d945d054 portlist_compareregrefs: dictionary order for names
</span>8d945d054 is described below

<span style='display:block; white-space:pre;color:#808000;'>commit 8d945d0549d834f739f2f462f74a5030ca2f002d
</span>Author: Joshua Root <jmr@macports.org>
AuthorDate: Sun Aug 18 12:35:21 2024 +1000

<span style='display:block; white-space:pre;color:#404040;'>    portlist_compareregrefs: dictionary order for names
</span>---
 src/portlist1.0/portlist.tcl | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/portlist1.0/portlist.tcl b/src/portlist1.0/portlist.tcl
</span><span style='display:block; white-space:pre;color:#808080;'>index 03b030be9..603287299 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/portlist1.0/portlist.tcl
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/portlist1.0/portlist.tcl
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -179,9 +179,14 @@ proc portlist_sortint {portlist} {
</span> }
 
 proc portlist_compareregrefs {a b} {
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    set byname [string compare -nocase [$a name] [$b name]]
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-    if {$byname != 0} {
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-        return $byname
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    set aname [$a name]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    set bname [$b name]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    if {![string equal -nocase $aname $bname]} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        # There's no -dictionary option for string compare as of Tcl 8.6
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        if {$aname eq [lindex [lsort -dictionary [list $aname $bname]] 0]} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            return -1
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        return 1
</span>     }
     set byvers [vercmp [$a version] [$b version]]
     if {$byvers != 0} {
</pre><pre style='margin:0'>

</pre>