checksites: handle empty sglobal

macports · Mar 8, 2025 · fb16351 · fb16351
1 parent f6e8a68
commit fb16351
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/src/port1.0/fetch_common.tcl b/src/port1.0/fetch_common.tcl
@@ -168,8 +168,10 @@ proc portfetch::checksites {sitelists mirrorfile} {
         set untagged_env_sites [list]
         if {[llength $extras] >= 2} {
             lassign $extras sglobal senv
-            lappend full_list $sglobal
-            set global_sites [mirror_sites $sglobal "" "" $mirrorfile]
+            if {$sglobal ne ""} {
+                lappend full_list $sglobal
+                set global_sites [mirror_sites $sglobal "" "" $mirrorfile]
+            }
             if {[info exists env($senv)]} {
                 foreach env_site $env($senv) {
                     lappend full_list $env_site