Ticket #757: portutil.tcl.patch

File portutil.tcl.patch, 674 bytes (added by fenner@…, 21 years ago)

Proposed patch to portutil.tcl

  • portutil.tcl 

    RCS file: /Volumes/src/cvs/od/proj/darwinports/base/src/port1.0/portutil.tcl,v
retrieving revision 1.134
diff -u -r1.134 portutil.tcl
     
    393393            return -code error "reinplace failed"
    394394        }
    395395
     396        if {[catch {file attributes $file -permissions +w} error]} {
     397            ui_error "reinplace: $error"
     398            file delete "$tmpfile"
     399            return -code error "reinplace failed"
     400        }
     401
    396402        if {[catch {exec cp $tmpfile $file} error]} {
    397403            ui_error "reinplace: $error"
    398404            file delete "$tmpfile"