Commit e8bcfe53 by Mark Mitchell

Fix typo in previous checkin

From-SVN: r99749
parent 0c0387e7
...@@ -288,7 +288,7 @@ proc compat-execute { src1 sid use_alt } { ...@@ -288,7 +288,7 @@ proc compat-execute { src1 sid use_alt } {
set testcase [string range "$src1" [string length "$srcdir/"] end] set testcase [string range "$src1" [string length "$srcdir/"] end]
} }
if {[string first "$tmpdir/" "$testcase"] == 0} { if {[string first "$tmpdir/" "$testcase"] == 0} {
set testcase [string range "$src1" [string length "$tmpdir/"] end] set testcase [string range "$testcase" [string length "$tmpdir/"] end]
} }
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.
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment