Fix typo in previous checkin

From-SVN: r99749
This commit is contained in:
Mark Mitchell 2005-05-15 22:35:39 +00:00
parent 0c0387e757
commit e8bcfe5330
1 changed files with 1 additions and 1 deletions

View File

@ -288,7 +288,7 @@ proc compat-execute { src1 sid use_alt } {
set testcase [string range "$src1" [string length "$srcdir/"] end]
}
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
# Set up the base name of executable files so they'll be unique.