Revision
91514
Author
jmr@macports.org
Date
2012-04-03 16:34:17 -0700 (Tue, 03 Apr 2012)

Log Message

skip archivefetch if destroot is already complete and not in binary-only mode

Modified Paths

Diff

Modified: trunk/base/src/package1.0/portarchivefetch.tcl (91513 => 91514)


--- trunk/base/src/package1.0/portarchivefetch.tcl	2012-04-03 23:21:27 UTC (rev 91513)
+++ trunk/base/src/package1.0/portarchivefetch.tcl	2012-04-03 23:34:17 UTC (rev 91514)
@@ -286,8 +286,10 @@
 
 proc portarchivefetch::archivefetch_start {args} {
     variable archivefetch_urls
-    global UI_PREFIX subport all_archive_files ports_source_only
-    if {![tbool ports_source_only]} {
+    global UI_PREFIX subport all_archive_files destroot target_state_fd \
+           ports_source_only ports_binary_only
+    if {![tbool ports_source_only] && ([tbool ports_binary_only] ||
+            !([check_statefile target org.macports.destroot $target_state_fd] && [file isdirectory $destroot]))} {
         portarchivefetch::checkfiles archivefetch_urls
     }
     if {[info exists all_archive_files] && [llength $all_archive_files] > 0} {