Fix typo in previous checkin

From-SVN: r99748
This commit is contained in:
Mark Mitchell 2005-05-15 22:33:49 +00:00
parent 5595de0fa4
commit 0c0387e757

View File

@ -287,7 +287,7 @@ proc compat-execute { src1 sid use_alt } {
if {[string first "$srcdir/" "$src1"] == 0} {
set testcase [string range "$src1" [string length "$srcdir/"] end]
}
if {[string first "$tmpdir/" "$src1"] == 0} {
if {[string first "$tmpdir/" "$testcase"] == 0} {
set testcase [string range "$src1" [string length "$tmpdir/"] end]
}
regsub "_main.*" $testcase "" testcase