<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/772a9ccaba5ae6417a12512669c3c061568a95b7">https://github.com/macports/macports-base/commit/772a9ccaba5ae6417a12512669c3c061568a95b7</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 772a9ccab Use normalised port names in portlist_sortdependents
</span>772a9ccab is described below

<span style='display:block; white-space:pre;color:#808000;'>commit 772a9ccaba5ae6417a12512669c3c061568a95b7
</span>Author: Joshua Root <jmr@macports.org>
AuthorDate: Thu Oct 19 14:56:15 2023 +1100

<span style='display:block; white-space:pre;color:#404040;'>    Use normalised port names in portlist_sortdependents
</span><span style='display:block; white-space:pre;color:#404040;'>    
</span><span style='display:block; white-space:pre;color:#404040;'>    Closes: https://trac.macports.org/ticket/60446
</span>---
 src/port/port.tcl | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/port/port.tcl b/src/port/port.tcl
</span><span style='display:block; white-space:pre;color:#808080;'>index 532ec4dbc..f1ef9340e 100755
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/port/port.tcl
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/port/port.tcl
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -417,11 +417,13 @@ proc portlist_sortint { list } {
</span> proc portlist_sortdependents { portlist } {
     foreach p $portlist {
         array set pvals $p
<span style='display:block; white-space:pre;background:#ffe0e0;'>-        lappend entries($pvals(name)) $p
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-        if {![info exists dependents($pvals(name))]} {
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-            set dependents($pvals(name)) {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        # normalise port name to lower case
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        set norm_name [string tolower $pvals(name)]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        lappend entries($norm_name) $p
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        if {![info exists dependents($norm_name)]} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            set dependents($norm_name) [list]
</span>             foreach result [registry::list_dependents $pvals(name)] {
<span style='display:block; white-space:pre;background:#ffe0e0;'>-                lappend dependents($pvals(name)) [lindex $result 2]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                lappend dependents($norm_name) [string tolower [lindex $result 2]]
</span>             }
         }
         array unset pvals
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -439,7 +441,7 @@ proc portlist_sortdependents_helper {p up_entries up_dependents up_seen up_retli
</span>         set seen($p) 1
         upvar $up_entries entries $up_dependents dependents $up_retlist retlist
         array set pvals $p
<span style='display:block; white-space:pre;background:#ffe0e0;'>-        foreach dependent $dependents($pvals(name)) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        foreach dependent $dependents([string tolower $pvals(name)]) {
</span>             if {[info exists entries($dependent)]} {
                 foreach entry $entries($dependent) {
                     portlist_sortdependents_helper $entry entries dependents seen retlist
</pre><pre style='margin:0'>

</pre>