* winsup.api/winsup.exp (ws_spawn): Tweak slightly to work with tcl 8.4.1.

2003-02-08 16:46:32 +00:00 · 2003-02-08 16:46:32 +00:00 · 9c88207cf3
parent 994d26a476
commit 9c88207cf3
2 changed files with 6 additions and 1 deletions
--- a/winsup/testsuite/ChangeLog
+++ b/winsup/testsuite/ChangeLog
@ -1,3 +1,8 @@
+2003-02-08  Christopher Faylor  <cgf@redhat.com>
+
+	* winsup.api/winsup.exp (ws_spawn): Tweak slightly to work with tcl
+	8.4.1.
+
 2003-02-07  Christopher Faylor  <cgf@redhat.com>

 	* libltp/lib/parse_opts.c: Deal with C warnings.
--- a/winsup/testsuite/winsup.api/winsup.exp
+++ b/winsup/testsuite/winsup.api/winsup.exp
@ -23,7 +23,7 @@ if { [info exists env(CYGWIN_TESTSUITE_TESTS)] } {
 proc ws_spawn {cmd args} {
    global rv
    verbose "running $cmd\n"
-    catch [eval "exec $cmd"] rv
+    catch "exec $cmd" rv
    verbose send "catchCode = $rv\n"
 }