Changeset 80581

Timestamp:

07/15/11 06:14:37 (4 years ago)

Author:

jmr@…

Message:

don't clear all_archive_files when archive already exists

File:

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

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

@@ -94 +94 @@
     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}
     }
 }