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

[jmr at macports.org]

Revision: 66692
          http://trac.macports.org/changeset/66692
Author:   jmr at macports.org
Date:     2010-04-20 07:27:33 -0700 (Tue, 20 Apr 2010)
Log Message:
-----------
portdistfiles: show local path to each distfile

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

Modified: trunk/base/src/port1.0/portdistfiles.tcl
===================================================================
--- trunk/base/src/port1.0/portdistfiles.tcl	2010-04-20 14:26:45 UTC (rev 66691)
+++ trunk/base/src/port1.0/portdistfiles.tcl	2010-04-20 14:27:33 UTC (rev 66692)
@@ -53,7 +53,7 @@
 }
 
 proc portdistfiles::distfiles_main {args} {
-    global UI_PREFIX master_sites checksums_array
+    global UI_PREFIX master_sites checksums_array portdbpath dist_subdir
     
     # give up on ports that do not provide URLs
     if {$master_sites == "{}"} {
@@ -71,7 +71,7 @@
     foreach {url_var distfile} $fetch_urls {
         global portfetch::urlmap
 
-        ui_msg "\[$distfile\]"
+        ui_msg "\[$distfile\] [file join $portdbpath distfiles $dist_subdir $distfile]"
 
         # print checksums if available
         if {$result == "yes" && [array get checksums_array $distfile] != ""} {
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20100420/ec75ab9e/attachment.html>