Fix the scope used by log_cmd

uplevel is needed as otherwise the variables set the script are
in the scope of log_cmd's proc and not the callers.  This problem
was hidden by sta's overriding of source but now that it is removed
the problem manifests.

Signed-off-by: Matt Liberty <[email protected]>

Author: maliberty

flow/scripts/util.tcl

@@ -3,7 +3,7 @@ proc log_cmd {cmd args} {
   set log_cmd "$cmd[join [lmap arg $args {format " %s" [expr {[string match {* *} $arg] ? "\"$arg\"" : "$arg"}]}] ""]"
   puts $log_cmd
   set start [clock seconds]
-  $cmd {*}$args
+  uplevel 1 [list $cmd {*}$args]
   set time [expr {[clock seconds] - $start}]
   if {$time >= 5} {
     # Ideally we'd use a single line, but the command can output text