[38147] branches/gsoc08-privileges/base/src/port1.0/portutil.tcl

[Ryan Schmidt]

Is this chown procedure intended to be used by ports?

If so, maybe there should be chgrp and chmod procedures as well.


On Jul 8, 2008, at 16:01, pmagrath at macports.org wrote:

> Revision: 38147
>           http://trac.macosforge.org/projects/macports/changeset/38147
> Author:   pmagrath at macports.org
> Date:     2008-07-08 14:01:25 -0700 (Tue, 08 Jul 2008)
> Log Message:
> -----------
> Re-wrote chown proc to use fs-traverse (suggested by Eridius. Thanks!)
>
> Modified Paths:
> --------------
>     branches/gsoc08-privileges/base/src/port1.0/portutil.tcl
>
> Modified: branches/gsoc08-privileges/base/src/port1.0/portutil.tcl
> ===================================================================
> --- branches/gsoc08-privileges/base/src/port1.0/portutil.tcl	 
> 2008-07-08 20:44:32 UTC (rev 38146)
> +++ branches/gsoc08-privileges/base/src/port1.0/portutil.tcl	 
> 2008-07-08 21:01:25 UTC (rev 38147)
> @@ -2273,9 +2273,10 @@
>  	file attributes $path -owner [name_to_uid "$user"]
>  	
>      if {[file isdirectory $path]} {
> -		foreach g [glob [file join $path *]] {
> -			chown $g $user
> +		fs-traverse myfile ${path} {
> +			file attributes $myfile -owner [name_to_uid "$user"]
>  		}
>      }
> +
>  }