[80583] trunk/base/src/package1.0/portarchivefetch.tcl

[jmr at macports.org]

Revision: 80583
          http://trac.macports.org/changeset/80583
Author:   jmr at macports.org
Date:     2011-07-15 06:35:13 -0700 (Fri, 15 Jul 2011)
Log Message:
-----------
fix filtering of archive mirrors by prefix

Modified Paths:
--------------
    trunk/base/src/package1.0/portarchivefetch.tcl

Modified: trunk/base/src/package1.0/portarchivefetch.tcl
===================================================================
--- trunk/base/src/package1.0/portarchivefetch.tcl	2011-07-15 13:24:19 UTC (rev 80582)
+++ trunk/base/src/package1.0/portarchivefetch.tcl	2011-07-15 13:35:13 UTC (rev 80583)
@@ -66,6 +66,10 @@
 
 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] {
         if {$portfetch::mirror_sites::archive_prefix($site) == $prefix} {
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20110715/4df52fc2/attachment-0001.html>