Ticket #15514: reinplace-warning.diff

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

     
    772772   
    773773        close $tmpfd
    774774   
     775        if {![catch {exec diff -q $file $tmpfile >/dev/null}]} {
     776            ui_warn "[format [msgcat::mc "reinplace %1\$s didn't change anything in %2\$s"] $pattern $file]"
     777        }
     778   
    775779        set attributes [file attributes $file]
    776780        # We need to overwrite this file
    777781        if {[catch {file attributes $file -permissions u+w} error]} {