Ticket #15514: reinplace-warning9.diff

File reinplace-warning9.diff, 919 bytes (added by kurthindenburg (Kurt Hindenburg), 10 years ago)

just adding the -q part - does nothing else

  • portutil.tcl

     
    919919    global env workpath worksrcpath macosx_version
    920920    set extended 0
    921921    set suppress 0
     922    set quiet 0
    922923    set oldlocale_exists 0
    923924    set oldlocale ""
    924925    set locale ""
    … …  
    942943                n {
    943944                    set suppress 1
    944945                }
     946                q {
     947                    set quiet 1
     948                }
    945949                W {
    946950                    set dir [lindex $args 0]
    947951                    set args [lrange $args 1 end]
    … …  
    958962        }
    959963    }
    960964    if {[llength $args] < 2} {
    961         error "reinplace ?-E? ?-n? ?-W dir? pattern file ..."
     965        error "reinplace ?-E? ?-n? ?-q? ?-W dir? pattern file ..."
    962966    }
    963967    set pattern [lindex $args 0]
    964968    set files [lrange $args 1 end]