| Index: third_party/sqlite/src/test/thread_common.tcl
|
| diff --git a/third_party/sqlite/src/test/thread_common.tcl b/third_party/sqlite/src/test/thread_common.tcl
|
| old mode 100755
|
| new mode 100644
|
| index bbd9389ea03cd656c01cc34357ec801078c4bf3b..9b7a95dd9a02d632bd739a6443ea8480cd1ab9d2
|
| --- a/third_party/sqlite/src/test/thread_common.tcl
|
| +++ b/third_party/sqlite/src/test/thread_common.tcl
|
| @@ -80,7 +80,7 @@ set thread_procs {
|
| }
|
|
|
| proc thread_spawn {varname args} {
|
| - sqlthread spawn $varname [join $args ;]
|
| + sqlthread spawn $varname [join $args {;}]
|
| }
|
|
|
| # Return true if this build can run the multi-threaded tests.
|
| @@ -96,16 +96,10 @@ proc run_thread_tests {{print_warning 0}} {
|
| set zProblem "Linked against a non-threadsafe Tcl build"
|
| }
|
| if {[info exists zProblem]} {
|
| - if {$print_warning} {
|
| - if {[info exists ::run_thread_tests_failed]} {
|
| - puts "WARNING: Multi-threaded tests skipped: $zProblem"
|
| - }
|
| - } else {
|
| - puts "Skipping thread tests: $zProblem"
|
| - set ::run_thread_tests_failed 1
|
| - }
|
| + puts "WARNING: Multi-threaded tests skipped: $zProblem"
|
| return 0
|
| }
|
| + set ::run_thread_tests_called 1
|
| return 1;
|
| }
|
|
|
|
|