We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 8ce5406 commit 380ddb0Copy full SHA for 380ddb0
1 file changed
flow/scripts/util.tcl
@@ -1,6 +1,6 @@
1
proc log_cmd { cmd args } {
2
# log the command, escape arguments with spaces
3
- set log_cmd "$cmd[join [lmap arg $args { format " %s" [expr { [string mtch {* *} $arg] ? "\"$arg\"" : "$arg" }] }] ""]"
+ set log_cmd "$cmd[join [lmap arg $args { format " %s" [expr { [string match {* *} $arg] ? "\"$arg\"" : "$arg" }] }] ""]"
4
puts $log_cmd
5
set start [clock seconds]
6
set result [uplevel 1 [list $cmd {*}$args]]
0 commit comments