[79441] trunk/base/src/port1.0/portdistfiles.tcl

[jmr at macports.org]

Revision: 79441
          http://trac.macports.org/changeset/79441
Author:   jmr at macports.org
Date:     2011-06-13 06:19:58 -0700 (Mon, 13 Jun 2011)
Log Message:
-----------
print nothing in distfiles target for ports with no distfiles, rather than erroring

Modified Paths:
--------------
    trunk/base/src/port1.0/portdistfiles.tcl

Modified: trunk/base/src/port1.0/portdistfiles.tcl
===================================================================
--- trunk/base/src/port1.0/portdistfiles.tcl	2011-06-13 13:10:32 UTC (rev 79440)
+++ trunk/base/src/port1.0/portdistfiles.tcl	2011-06-13 13:19:58 UTC (rev 79441)
@@ -53,7 +53,7 @@
 }
 
 proc portdistfiles::distfiles_main {args} {
-    global UI_PREFIX master_sites checksums_array portdbpath dist_subdir
+    global UI_PREFIX master_sites checksums_array portdbpath dist_subdir all_dist_files
     
     # give up on ports that do not provide URLs
     if {![info exists master_sites] || $master_sites == "{}"} {
@@ -64,6 +64,11 @@
     set fetch_urls {}
     portfetch::checkfiles fetch_urls
 
+    # also give up on ports that don't have any distfiles
+    if {![info exists all_dist_files]} {
+        return 0
+    }
+
     # get checksum data from the portfile and parse it
     set checksums_str [option checksums]
     set result [portchecksum::parse_checksums $checksums_str]
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20110613/54d7a2f8/attachment.html>