From: Greg Hudson <ghudson@mit.edu>
Date: Fri, 5 Dec 2008 18:32:08 +0000 (+0000)
Subject: In the dejagnu test suite utilities, use the caller's value of
X-Git-Tag: krb5-1.7-alpha1~179
X-Git-Url: http://git.tremily.us/?a=commitdiff_plain;h=ad22ac624093915726828a955ca8b7722ec75e2a;p=krb5.git

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 50e563e2c..97649d727 100644
--- 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]