Ignore:
Timestamp:
Aug 16, 2003, 7:56:27 PM (15 years ago)
Author:
fkr
Message:

Bug: #757
Submitted by: fenner@… (Bill Fenner)
Reviewed by:
Approved by:
Obtained from:

catch failure of reinplace if target file is not writeable

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/src/port1.0/portutil.tcl

    r3220 r3266  
    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"
Note: See TracChangeset for help on using the changeset viewer.