diff options
Diffstat (limited to 'tool/replace.tcl')
| -rw-r--r-- | tool/replace.tcl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tool/replace.tcl b/tool/replace.tcl index b01a83acc..1ecc6dc7b 100644 --- a/tool/replace.tcl +++ b/tool/replace.tcl @@ -7,13 +7,14 @@ set mode [string tolower [lindex $argv 0]] set from [lindex $argv 1] set to [lindex $argv 2] -if {$mode ni [list exact include]} {exit 1} +if {$mode ni [list exact regsub include]} {exit 1} if {[string length $from]==0} {exit 2} while {![eof stdin]} { set line [gets stdin] if {[eof stdin]} break switch -exact $mode { exact {set line [string map [list $from $to] $line]} + regsub {regsub -all -- $from $line $to line} include {if {[regsub -all -- $from $line $to line]==0} continue} } puts stdout $line |