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

[eridius at macports.org]

Revision: 46146
          http://trac.macports.org/changeset/46146
Author:   eridius at macports.org
Date:     2009-01-30 05:13:42 -0800 (Fri, 30 Jan 2009)
Log Message:
-----------
Preserve file attributes when using reinplace

reinplace is supposed to preserve the file attributes. Unfortunately, due
to a bug, it was only preserving the first element of the `file attributes list
(which appears to be group). It is surprising that this has gone unnoticed until now.

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-01-30 11:53:27 UTC (rev 46145)
+++ trunk/base/src/port1.0/portutil.tcl	2009-01-30 13:13:42 UTC (rev 46146)
@@ -846,7 +846,7 @@
             return -code error "reinplace copy failed"
         }
     
-        for {set i 0} {$i < [llength attributes]} {incr i} {
+        for {set i 0} {$i < [llength $attributes]} {incr i} {
             set opt [lindex $attributes $i]
             incr i
             set arg [lindex $attributes $i]
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20090130/02141fa0/attachment.html>