Ticket #26406: portutil.tcl.diff

File portutil.tcl.diff, 943 bytes (added by ryandesign (Ryan Schmidt), 10 years ago)

implements the -n option in reinplace

  • src/port1.0/portutil.tcl

     
    858858proc reinplace {args}  {
    859859
    860860    set extended 0
     861    set suppress 0
    861862    while 1 {
    862863        set arg [lindex $args 0]
    863864        if {[string index $arg 0] eq "-"} {
     
    866867                E {
    867868                    set extended 1
    868869                }
     870                n {
     871                    set suppress 1
     872                }
    869873                - {
    870874                    break
    871875                }
     
    904908            }
    905909            lappend cmdline $portutil::autoconf::sed_ext_flag
    906910        }
     911        if {$suppress} {
     912            lappend cmdline -n
     913        }
    907914        set cmdline [concat $cmdline [list $pattern < $file >@ $tmpfd]]
    908915        if {[catch {eval exec $cmdline} error]} {
    909916            global errorInfo