Changeset 36688

Timestamp:

2008-05-11 15:37:38 (6 months ago)

Author:

jmr@…

Message:

simpler, working fix for #11971.

Files:

• trunk/base/src/port1.0/portfetch.tcl (modified) (1 diff)

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

@@ -616 +616 @@
 # Initialize fetch target
 proc fetch_init {args} {
-    global distfiles distname distpath all_dist_files dist_subdir fetch.type
-    
-    if {[info exist distpath] && [info exists dist_subdir]} {
-        set distpath ${distpath}/${dist_subdir}
+    global distfiles distname distpath all_dist_files dist_subdir fetch.type fetch_init_done
+    
+    if {[info exists distpath] && [info exists dist_subdir] && ![info exists fetch_init_done]} {
+            set distpath ${distpath}/${dist_subdir}
+            set fetch_init_done yes
     }
 }