Fix another typo

From-SVN: r99750
This commit is contained in:
Mark Mitchell 2005-05-15 22:51:59 +00:00
parent e8bcfe5330
commit 0fc0b3973d

View file

@ -289,6 +289,7 @@ proc compat-execute { src1 sid use_alt } {
} }
if {[string first "$tmpdir/" "$testcase"] == 0} { if {[string first "$tmpdir/" "$testcase"] == 0} {
set testcase [string range "$testcase" [string length "$tmpdir/"] end] set testcase [string range "$testcase" [string length "$tmpdir/"] end]
set testcase "tmpdir-$testcase"
} }
regsub "_main.*" $testcase "" testcase regsub "_main.*" $testcase "" testcase
# Set up the base name of executable files so they'll be unique. # Set up the base name of executable files so they'll be unique.