diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/support/util.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/support/util.tcl b/tests/support/util.tcl index c98e7801b..a36003029 100644 --- a/tests/support/util.tcl +++ b/tests/support/util.tcl @@ -637,7 +637,7 @@ proc get_child_pid {idx} { } proc process_is_alive pid { - if {[catch {exec ps -p $pid} err]} { + if {[catch {exec ps -p $pid -f} err]} { return 0 } else { if {[string match "*<defunct>*" $err]} { return 0 } |