diff options
| author | dgp <dgp@users.sourceforge.net> | 2015-04-29 20:34:26 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2015-04-29 20:34:26 (GMT) |
| commit | 312624b2f088518a675dfae2f008aa8542a95e40 (patch) | |
| tree | 9260a34e3bf816312c9fb1423b748cc8d9bd263e | |
| parent | ade6c2a049cda62730309d282fdf9c65a5daf1c4 (diff) | |
| download | tcl-312624b2f088518a675dfae2f008aa8542a95e40.zip tcl-312624b2f088518a675dfae2f008aa8542a95e40.tar.gz tcl-312624b2f088518a675dfae2f008aa8542a95e40.tar.bz2 | |
Use joinable threads to avoid thread finalization crashes.
| -rw-r--r-- | tests/http.test | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/http.test b/tests/http.test index 81e16a1..2fc0a51 100644 --- a/tests/http.test +++ b/tests/http.test @@ -54,7 +54,7 @@ if {![file exists $httpdFile]} { } if {[info commands testthread] == "testthread" && [file exists $httpdFile]} { - set httpthread [testthread create " + set httpthread [testthread create -joinable " source [list $httpdFile] testthread wait "] @@ -554,6 +554,7 @@ if {[info exists httpthread]} { testthread send -async $httpthread { testthread exit } + testthread join $httpthread } else { close $listen } |