Ticket #18489: reinplace-attributes.diff

src/port1.0/portutil.tcl

@@ -845 +845 @@
             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"
     }