[47026] trunk/base/src/port1.0/portutil.tcl

[jmr at macports.org]

Revision: 47026
          http://trac.macports.org/changeset/47026
Author:   jmr at macports.org
Date:     2009-02-19 21:11:57 -0800 (Thu, 19 Feb 2009)
Log Message:
-----------
Simplify reinplace's attribute preservation code.

Modified Paths:
--------------
    trunk/base/src/port1.0/portutil.tcl

Modified: trunk/base/src/port1.0/portutil.tcl
===================================================================
--- trunk/base/src/port1.0/portutil.tcl	2009-02-20 04:52:10 UTC (rev 47025)
+++ trunk/base/src/port1.0/portutil.tcl	2009-02-20 05:11:57 UTC (rev 47026)
@@ -851,12 +851,7 @@
             return -code error "reinplace copy failed"
         }
     
-        for {set i 0} {$i < [llength $attributes]} {incr i} {
-            set opt [lindex $attributes $i]
-            incr i
-            set arg [lindex $attributes $i]
-            file attributes $file $opt $arg
-        }
+        eval file attributes $file $attributes
         
         file delete "$tmpfile"
     }
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20090219/1ae907da/attachment.html>