Ticket #15514: reinplace-warning7.diff

File reinplace-warning7.diff, 1.3 KB (added by tenomoto (Takeshi Enomoto), 8 years ago)
  • src/port1.0/portutil.tcl

     
    918918    global env worksrcpath
    919919    set extended 0
    920920    set suppress 0
     921    set quiet 0
    921922    set oldlocale_exists 0
    922923    set oldlocale ""
    923924    set locale ""
     
    941942                n {
    942943                    set suppress 1
    943944                }
     945                q {
     946                    set quiet 1
     947                }
    944948                W {
    945949                    set dir [lindex $args 0]
    946950                    set args [lrange $args 1 end]
     
    957961        }
    958962    }
    959963    if {[llength $args] < 2} {
    960         error "reinplace ?-E? ?-n? ?-W dir? pattern file ..."
     964        error "reinplace ?-E? ?-n? ?-q? ?-W dir? pattern file ..."
    961965    }
    962966    set pattern [lindex $args 0]
    963967    set files [lrange $args 1 end]
     
    10201024        }
    10211025        close $tmpfd
    10221026
     1027        if {![catch {exec cmp -s $file $tmfile}]} {
     1028            if {!$quiet} {
     1029                ui_warn "[format [msgcat::mc "reinplace %1\$s didn't change anything in %2\$s"] $pattern $file]"
     1030            }
     1031        }
     1032
    10231033        set attributes [file attributes $file]
    10241034        # start gsoc08-privileges
    10251035        chownAsRoot $file