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

[jmr at macports.org]

Revision: 80581
          http://trac.macports.org/changeset/80581
Author:   jmr at macports.org
Date:     2011-07-15 06:14:37 -0700 (Fri, 15 Jul 2011)
Log Message:
-----------
don't clear all_archive_files when archive already exists

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 12:53:29 UTC (rev 80580)
+++ trunk/base/src/package1.0/portarchivefetch.tcl	2011-07-15 13:14:37 UTC (rev 80581)
@@ -93,16 +93,10 @@
     # throws an error if unsupported
     archiveTypeIsSupported $portarchivetype
 
-    if {[file isfile ${archive.path}]} {
-        ui_debug "Found archive: ${archive.path}"
-        set all_archive_files {}
-        set fetch_urls {}
-    } else {
-        set archive.file [file tail ${archive.path}]
-        lappend all_archive_files ${archive.file}
-        if {[info exists archive_sites]} {
-            lappend fetch_urls archive_sites ${archive.file}
-        }
+    set archive.file [file tail ${archive.path}]
+    lappend all_archive_files ${archive.file}
+    if {[info exists archive_sites]} {
+        lappend fetch_urls archive_sites ${archive.file}
     }
 }
 
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20110715/46efb8af/attachment.html>