[36688] trunk/base/src/port1.0/portfetch.tcl

[jmr at macports.org]

Revision: 36688
          http://trac.macosforge.org/projects/macports/changeset/36688
Author:   jmr at macports.org
Date:     2008-05-11 15:37:38 -0700 (Sun, 11 May 2008)

Log Message:
-----------
simpler, working fix for #11971.

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

Modified: trunk/base/src/port1.0/portfetch.tcl
===================================================================
--- trunk/base/src/port1.0/portfetch.tcl	2008-05-11 22:01:57 UTC (rev 36687)
+++ trunk/base/src/port1.0/portfetch.tcl	2008-05-11 22:37:38 UTC (rev 36688)
@@ -615,10 +615,11 @@
 
 # Initialize fetch target
 proc fetch_init {args} {
-    global distfiles distname distpath all_dist_files dist_subdir fetch.type
+    global distfiles distname distpath all_dist_files dist_subdir fetch.type fetch_init_done
     
-    if {[info exist distpath] && [info exists dist_subdir]} {
-	set distpath ${distpath}/${dist_subdir}
+    if {[info exists distpath] && [info exists dist_subdir] && ![info exists fetch_init_done]} {
+	    set distpath ${distpath}/${dist_subdir}
+	    set fetch_init_done yes
     }
 }
 

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.macosforge.org/pipermail/macports-changes/attachments/20080511/580f4758/attachment.html