Changeset 79441

Timestamp:

06/13/11 06:19:58 (4 years ago)

Author:

jmr@…

Message:

print nothing in distfiles target for ports with no distfiles, rather than erroring

File:

• trunk/base/src/port1.0/portdistfiles.tcl (modified) (2 diffs)

trunk/base/src/port1.0/portdistfiles.tcl

@@ -54 +54 @@
 
 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
@@ -64 +64 @@
     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