Ticket #15514: reinplace-warning2.diff

File reinplace-warning2.diff, 587 bytes (added by ryandesign (Ryan Schmidt), 12 years ago)
  • src/port1.0/portutil.tcl

     
    776776   
    777777        close $tmpfd
    778778   
     779        if {![catch {exec cmp -s $file $tmpfile}]} {
     780            ui_warn "[format [msgcat::mc "reinplace %1\$s didn't change anything in %2\$s"] $pattern $file]"
     781        }
     782   
    779783        set attributes [file attributes $file]
    780784        # We need to overwrite this file
    781785        if {[catch {file attributes $file -permissions u+w} error]} {