[38170] branches/gsoc08-privileges/base/src/port1.0/portextract.tcl

[pmagrath at macports.org]

Revision: 38170
          http://trac.macosforge.org/projects/macports/changeset/38170
Author:   pmagrath at macports.org
Date:     2008-07-10 01:27:12 -0700 (Thu, 10 Jul 2008)
Log Message:
-----------
Undo accidental reversion of r38038.

Modified Paths:
--------------
    branches/gsoc08-privileges/base/src/port1.0/portextract.tcl

Modified: branches/gsoc08-privileges/base/src/port1.0/portextract.tcl
===================================================================
--- branches/gsoc08-privileges/base/src/port1.0/portextract.tcl	2008-07-10 08:18:39 UTC (rev 38169)
+++ branches/gsoc08-privileges/base/src/port1.0/portextract.tcl	2008-07-10 08:27:12 UTC (rev 38170)
@@ -93,6 +93,7 @@
 
 proc extract_main {args} {
     global UI_PREFIX euid egid worksrcpath macportsuser
+    global filespath    
     
     if {![exists distfiles] && ![exists extract.only]} {
 	# nothing to do
@@ -101,7 +102,11 @@
 
     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"
 	}
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.macosforge.org/pipermail/macports-changes/attachments/20080710/755c3132/attachment.html