Changeset 38038 for trunk/base/src

Timestamp:

07/03/08 21:30:56 (5 months ago)

Author:

raimue@…

Message:

port1.0/portextract.tcl:
If the $distfile exists in $filespath, use it from there as it was not fetched
to the distpath in this case.

Files:

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

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

@@ -93 +93 @@
 
 proc extract_main {args} {
-    global UI_PREFIX
+    global UI_PREFIX filespath
     
     if {![exists distfiles] && ![exists extract.only]} {
@@ -102 +102 @@
     foreach distfile [option extract.only] {
         ui_info "$UI_PREFIX [format [msgcat::mc "Extracting %s"] $distfile]"
-        option extract.args "[option distpath]/$distfile"
+        if {[file exists $filespath/$distfile]} {
+                option extract.args "$filespath/$distfile"
+        } else {
+                option extract.args "[option distpath]/$distfile"
+        }
         if {[catch {command_exec extract} result]} {
             return -code error "$result"