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

</pre>
<p><a href="https://github.com/macports/macports-base/commit/97a0a5c3d62a079b55437547552c72ea7b4a9e44">https://github.com/macports/macports-base/commit/97a0a5c3d62a079b55437547552c72ea7b4a9e44</a></p>
<pre style="white-space: pre; background: #F8F8F8"><span style='display:block; white-space:pre;color:#808000;'>commit 97a0a5c3d62a079b55437547552c72ea7b4a9e44
</span>Author: Joshua Root <jmr@macports.org>
AuthorDate: Sat Mar 8 08:51:45 2025 +1100

<span style='display:block; white-space:pre;color:#404040;'>    Clean up portfetch::checksites code
</span><span style='display:block; white-space:pre;color:#404040;'>    
</span><span style='display:block; white-space:pre;color:#404040;'>    (cherry picked from commit 3ec53cf583e164c2fc23833d41e6c15966f2000d)
</span>---
 src/port1.0/fetch_common.tcl | 16 +++++++---------
 1 file changed, 7 insertions(+), 9 deletions(-)

<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/port1.0/fetch_common.tcl b/src/port1.0/fetch_common.tcl
</span><span style='display:block; white-space:pre;color:#808080;'>index bf5d977d2..bd87795a6 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/port1.0/fetch_common.tcl
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/port1.0/fetch_common.tcl
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -169,7 +169,7 @@ proc portfetch::checksites {sitelists mirrorfile} {
</span>         if {[llength $extras] >= 2} {
             set sglobal [lindex $extras 0]
             set senv [lindex $extras 1]
<span style='display:block; white-space:pre;background:#ffe0e0;'>-            append full_list " $sglobal"
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            lappend full_list $sglobal
</span>             if {[info exists env($senv)]} {
                 set full_list [concat $env($senv) $full_list]
             }
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -178,19 +178,17 @@ proc portfetch::checksites {sitelists mirrorfile} {
</span>         set site_list [list]
         foreach site $full_list {
             if {[regexp $url_re $site match site]} {
<span style='display:block; white-space:pre;background:#ffe0e0;'>-                set site_list [concat $site_list $site]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                lappend site_list $site
</span>             } else {
                 set splitlist [split $site :]
                 if {[llength $splitlist] > 3 || [llength $splitlist] <1} {
                     ui_error [format [msgcat::mc "Unable to process mirror sites for: %s, ignoring."] $site]
                 }
<span style='display:block; white-space:pre;background:#ffe0e0;'>-                set mirrors "[lindex $splitlist 0]"
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-                set subdir "[lindex $splitlist 1]"
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-                set tag "[lindex $splitlist 2]"
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                lassign $splitlist mirrors subdir tag
</span>                 if {[info exists ${listname}.mirror_subdir]} {
<span style='display:block; white-space:pre;background:#ffe0e0;'>-                    append subdir "[set ${listname}.mirror_subdir]"
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                    append subdir [set ${listname}.mirror_subdir]
</span>                 }
<span style='display:block; white-space:pre;background:#ffe0e0;'>-                set site_list [concat $site_list [mirror_sites $mirrors $tag $subdir $mirrorfile]]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                lappend site_list {*}[mirror_sites $mirrors $tag $subdir $mirrorfile]
</span>             }
         }
 
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -198,7 +196,7 @@ proc portfetch::checksites {sitelists mirrorfile} {
</span>         foreach site $site_list {
             if {[regexp $tagged_url_re $site match site tag] && ![info exists extras_added($tag)]} {
                 if {$sglobal ne ""} {
<span style='display:block; white-space:pre;background:#ffe0e0;'>-                    set site_list [concat $site_list [mirror_sites $sglobal $tag "" $mirrorfile]]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                    lappend site_list {*}[mirror_sites $sglobal $tag "" $mirrorfile]
</span>                 }
                 if {[info exists env($senv)]} {
                     set site_list [concat $env($senv) $site_list]
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -208,7 +206,7 @@ proc portfetch::checksites {sitelists mirrorfile} {
</span>         }
 
         foreach site $site_list {
<span style='display:block; white-space:pre;background:#ffe0e0;'>-        if {[regexp $tagged_url_re $site match site tag]} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            if {[regexp $tagged_url_re $site match site tag]} {
</span>                 lappend urlmap($tag) $site
             } else {
                 lappend urlmap($listname) $site
</pre><pre style='margin:0'>

</pre>