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

[jmr at macports.org]

Revision: 91514
          https://trac.macports.org/changeset/91514
Author:   jmr at 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:
--------------
    trunk/base/src/package1.0/portarchivefetch.tcl

Modified: trunk/base/src/package1.0/portarchivefetch.tcl
===================================================================
--- 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} {
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20120403/08f185e9/attachment.html>