[38144] branches/gsoc08-privileges/base/src/port1.0

[Rainer Müller]

pmagrath at macports.org wrote:
> Revision: 38144
>           http://trac.macosforge.org/projects/macports/changeset/38144
> Author:   pmagrath at macports.org
> Date:     2008-07-08 13:35:34 -0700 (Tue, 08 Jul 2008)
> Log Message:
> -----------
> Added a new procedure for recursive chowning of directories. Inserted calls to this procedure where necessary.
> 
> Modified Paths:
> --------------
>     branches/gsoc08-privileges/base/src/port1.0/portextract.tcl
>     branches/gsoc08-privileges/base/src/port1.0/portutil.tcl
> 
> Modified: branches/gsoc08-privileges/base/src/port1.0/portextract.tcl
> ===================================================================
> --- branches/gsoc08-privileges/base/src/port1.0/portextract.tcl	2008-07-08 19:52:43 UTC (rev 38143)
> +++ branches/gsoc08-privileges/base/src/port1.0/portextract.tcl	2008-07-08 20:35:34 UTC (rev 38144)
> @@ -93,7 +93,6 @@
>  
>  proc extract_main {args} {
>      global UI_PREFIX euid egid worksrcpath macportsuser
> -    global filespath
>      
>      if {![exists distfiles] && ![exists extract.only]} {
>  	# nothing to do
> @@ -102,11 +101,7 @@
>  
>      foreach distfile [option extract.only] {
>  	ui_info "$UI_PREFIX [format [msgcat::mc "Extracting %s"] $distfile]"
> -	if {[file exists $filespath/$distfile]} {
> -		option extract.args "$filespath/$distfile"
> -	} else {
> -		option extract.args "[option distpath]/$distfile"
> -	}
> +	option extract.args "[option distpath]/$distfile"

You reverted a change here which was merged in from trunk (r38038).
Be careful, we are going to merge your work back to trunk at the end of 
the summer and it should not overwrite other changes made in between.

Rainer