1
0
mirror of https://github.com/sqlite/sqlite.git synced 2025-07-30 19:03:16 +03:00

Fix build break in [e2bd23f251359e7a].

FossilOrigin-Name: 6ed84211033ee0ff00c8fd088979fe06d3a264e4f935162f36a62c00af135c63
This commit is contained in:
drh
2025-02-27 15:52:15 +00:00
parent fd3938fbca
commit 29820d39d8
3 changed files with 11 additions and 9 deletions

View File

@ -696,7 +696,9 @@ proc trd_test_script_properties {path} {
# If file $bin exists, return $bin. Else if ${bin}.exe
# exists, return that. Else error out.
proc trd_get_bin_name {bin} {
global tcl_platform
if {[file exists $bin]} {return $bin}
if {[file exists $bin.exe]} {return $bin.exe}
error "Cannot find binary named $bin"
if {$tcl_platform(platform)=="Windows"} {return $bin.exe}
return $bin
}