Avoid creating a file called '&1' in testsuite/systemtap.pass1-4/semko.exp.

diff --git a/testsuite/systemtap.pass1-4/semko.exp b/testsuite/systemtap.pass1-4/semko.exp
index 0b8dffa2f412e7cd183e47f7e4a341a1a7c45c72..cfa4d2d102031c3de9f3dd9e60cd0dca5f06603e 100644 (file)
--- a/testsuite/systemtap.pass1-4/semko.exp
+++ b/testsuite/systemtap.pass1-4/semko.exp
@@ -25,7 +25,11 @@ foreach runtime [get_runtime_list] {
                    # version of vfs_read() doesn't exist. One does
                    # exist on 3.10.0-327.el7.ppc64.
                    set pp "kernel.function(\"vfs_read\").inline"
-                   if {![catch {exec stap -l ${pp} 2>&1} dummy]} {
+
+                   # Notice we are using the tcl 'exec' command
+                   # redirection of '2>@1', which is equivalent to
+                   # the shell's '2>&1'.
+                   if {![catch {exec stap -l ${pp} 2>@1} dummy]} {
                        untested $test; continue } }
            }