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; |
} |