Index: third_party/sqlite/src/test/bc_common.tcl |
diff --git a/third_party/sqlite/src/test/bc_common.tcl b/third_party/sqlite/src/test/bc_common.tcl |
index eb9b6db9d3536ef9bbbe7d4eb7e03d2042967c3b..78010dfa46b2be696238bfef362de96224249af3 100644 |
--- a/third_party/sqlite/src/test/bc_common.tcl |
+++ b/third_party/sqlite/src/test/bc_common.tcl |
@@ -7,11 +7,13 @@ proc bc_find_binaries {zCaption} { |
# against. |
# |
set binaries [list] |
- set pattern "[file tail [info nameofexec]]?*" |
+ set self [file tail [info nameofexec]] |
+ set pattern "$self?*" |
if {$::tcl_platform(platform)=="windows"} { |
set pattern [string map {\.exe {}} $pattern] |
} |
foreach file [glob -nocomplain $pattern] { |
+ if {$file==$self} continue |
if {[file executable $file] && [file isfile $file]} {lappend binaries $file} |
} |