Changeset 80583

Timestamp:

07/15/11 06:35:13 (4 years ago)

Author:

jmr@…

Message:

fix filtering of archive mirrors by prefix

File:

• trunk/base/src/package1.0/portarchivefetch.tcl (modified) (1 diff)

trunk/base/src/package1.0/portarchivefetch.tcl

@@ -67 +67 @@
 proc portarchivefetch::filter_sites {} {
     global prefix porturl
+    set mirrorfile [get_full_archive_sites_path]
+    if {[file exists $mirrorfile]} {
+        source $mirrorfile
+    }
     set ret {}
     foreach site [array names portfetch::mirror_sites::archive_prefix] {