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

[pmagrath at macports.org]

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"]
 		}
     }
+    
 }
 
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.macosforge.org/pipermail/macports-changes/attachments/20080708/1956f718/attachment-0001.html