In the dejagnu test suite utilities, use the caller's value of

spawn_id in check_exit_status, rather than the global value.

git-svn-id: svn://anonsvn.mit.edu/krb5/trunk@21289 dc483132-0cff-0310-8789-dd5450dbe970

diff --git a/src/tests/dejagnu/config/default.exp b/src/tests/dejagnu/config/default.exp
index 50e563e2c94c95ac27fae9766d39d64be3ca2606..97649d727595ac888bff684359683553a3804178 100644 (file)
--- a/src/tests/dejagnu/config/default.exp
+++ b/src/tests/dejagnu/config/default.exp
@@ -600,11 +600,11 @@ proc check_klogin { testname } {
 }
 
 # check_exit_status
-# Check the exit status of a spawned program.  Returns 1 if the
-# program succeeded, 0 if it failed.
+# Check the exit status of a spawned program (using the caller's value
+# of spawn_id).  Returns 1 if the program succeeded, 0 if it failed.
 
 proc check_exit_status { testname } {
-    global spawn_id
+    upvar 1 spawn_id spawn_id
 
     verbose "about to wait ($testname)"
     set status_list [wait -i $spawn_id]