From 7938bd829dfd82c40b35d536b5913e666c1454d2 Mon Sep 17 00:00:00 2001 From: "Frank Ch. Eigler" Date: Tue, 27 May 2008 17:40:00 -0400 Subject: testsuite: use catch{close}catch{wait} to ensure child process pipe/zombie cleanup --- testsuite/systemtap.stress/whitelist.exp | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'testsuite/systemtap.stress/whitelist.exp') diff --git a/testsuite/systemtap.stress/whitelist.exp b/testsuite/systemtap.stress/whitelist.exp index 4a31c124..f7c0bf16 100644 --- a/testsuite/systemtap.stress/whitelist.exp +++ b/testsuite/systemtap.stress/whitelist.exp @@ -320,8 +320,7 @@ proc whitelist_run { TEST_NAME {LOAD_GEN_FUNCTION ""} args } { timeout { set detail "stap timeout"; exec kill -INT -[exp_pid -i $stap_id] } eof { set failed 0 } } - catch {close -i $stap_id} - wait -i $stap_id + closewait -i $stap_id if {$failed} { puts "whitelist_run failure \($detail\)" } } @@ -353,7 +352,7 @@ proc runbenchs {} { set donepos [lsearch $idlist $expect_out(spawn_id)] set idlist [lreplace $idlist $donepos $donepos] incr runningcount -1 - wait -i $expect_out(spawn_id) + closewait -i $expect_out(spawn_id) } timeout { break } -- cgit