Ticket #18489: reinplace-attributes.diff

File reinplace-attributes.diff, 610 bytes (added by jmroot (Joshua Root), 16 years ago)
  • src/port1.0/portutil.tcl

     
    845845            return -code error "reinplace copy failed"
    846846        }
    847847   
    848         for {set i 0} {$i < [llength $attributes]} {incr i} {
    849             set opt [lindex $attributes $i]
    850             incr i
    851             set arg [lindex $attributes $i]
    852             file attributes $file $opt $arg
    853         }
     848        eval file attributes $file $attributes
    854849       
    855850        file delete "$tmpfile"
    856851    }