| Index: third_party/sqlite/sqlite-src-3100200/test/bc_common.tcl
|
| diff --git a/third_party/sqlite/sqlite-src-3080704/test/bc_common.tcl b/third_party/sqlite/sqlite-src-3100200/test/bc_common.tcl
|
| similarity index 94%
|
| copy from third_party/sqlite/sqlite-src-3080704/test/bc_common.tcl
|
| copy to third_party/sqlite/sqlite-src-3100200/test/bc_common.tcl
|
| index eb9b6db9d3536ef9bbbe7d4eb7e03d2042967c3b..78010dfa46b2be696238bfef362de96224249af3 100644
|
| --- a/third_party/sqlite/sqlite-src-3080704/test/bc_common.tcl
|
| +++ b/third_party/sqlite/sqlite-src-3100200/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}
|
| }
|
|
|
|
|