From 8d4399dde2bdd7a1b8dff3d09aed5f696e7e248f Mon Sep 17 00:00:00 2001
From: dsmith <dsmith>
Date: Tue, 26 Sep 2006 21:35:34 +0000
Subject: 2006-09-26  David Smith  <dsmith@redhat.com>

	* test.tcl: Looks for 'staprun' instead of 'stpd'.
---
 testsuite/systemtap.syscall/test.tcl | 19 ++++++++-----------
 1 file changed, 8 insertions(+), 11 deletions(-)

(limited to 'testsuite/systemtap.syscall/test.tcl')

diff --git a/testsuite/systemtap.syscall/test.tcl b/testsuite/systemtap.syscall/test.tcl
index a73e22c9..ee797565 100755
--- a/testsuite/systemtap.syscall/test.tcl
+++ b/testsuite/systemtap.syscall/test.tcl
@@ -34,20 +34,17 @@ set filename "${testname}.c"
 if {$modname == ""} {
     set cmd "stap -c ../${testname} ../sys.stp"
 } else {
-    set stpd ""
-    set stpd_list "/usr/local/libexec/systemtap/stpd /usr/libexec/systemtap/stpd"
-    foreach path $stpd_list {
-	if {[file exists $path]} {
-	    set stpd $path
-	    break
-	}
-    }
-    if {$stpd == ""} {
-	puts "stpd not found!"
+    set ccmd "which staprun"
+    catch {eval exec $ccmd} output
+    if {[file exists $output]} {
+	set staprun $output
+    } else {
+	puts "staprun not found!"
 	exit
     }
+
     set user $::tcl_platform(user)
-    set cmd "sudo $stpd -rmq  -u $user -c ../${testname} ${modname}"
+    set cmd "sudo $staprun -rmq  -u $user -c ../${testname} ${modname}"
 }
 
 # Extract the expected results
-- 
cgit