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.
2 parents eec7509 + a736a7f commit 4f1f6d7Copy full SHA for 4f1f6d7
flow/scripts/util.tcl
@@ -3,7 +3,7 @@ proc log_cmd {cmd args} {
3
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
- $cmd {*}$args
+ uplevel 1 [list $cmd {*}$args]
7
set time [expr {[clock seconds] - $start}]
8
if {$time >= 5} {
9
# Ideally we'd use a single line, but the command can output text
0 commit comments