diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-10-27 22:01:49 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-10-27 22:01:49 (GMT) |
commit | d1e2a1ab3ccfb141e5336357b90666f94789c20d (patch) | |
tree | df18b0c0c05fb7866199ba2037222082bf9c63d9 /tests | |
parent | 63b8879b8360fd38581a053cb4d53ba4fa4bf409 (diff) | |
parent | c0cffed37f1950c005805fe0b43a8993dad46f49 (diff) | |
download | tcl-d1e2a1ab3ccfb141e5336357b90666f94789c20d.zip tcl-d1e2a1ab3ccfb141e5336357b90666f94789c20d.tar.gz tcl-d1e2a1ab3ccfb141e5336357b90666f94789c20d.tar.bz2 |
Merge 8.7
Diffstat (limited to 'tests')
-rw-r--r-- | tests/http.test | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/tests/http.test b/tests/http.test index 992fac5..9986a77 100644 --- a/tests/http.test +++ b/tests/http.test @@ -46,7 +46,6 @@ if {![file exists $httpdFile]} { catch {package require Thread 2.7-} if {[catch {package present Thread}] == 0 && [file exists $httpdFile]} { set httpthread [thread::create -preserved] - lappend threadStack [list thread::release $httpthread] thread::send $httpthread [list source $httpdFile] thread::send $httpthread [list set bindata $bindata] thread::send $httpthread {httpd_init 0; set port} port @@ -64,7 +63,6 @@ if {[catch {package present Thread}] == 0 && [file exists $httpdFile]} { catch {unset port} return } - set threadStack {} } if {![info exists ThreadLevel]} { @@ -79,7 +77,6 @@ if {![info exists ThreadLevel]} { foreach ThreadLevel $ValueRange { source [info script] } - try [lpop threadStack] catch {unset ThreadLevel} catch {unset ValueRange} return @@ -1170,8 +1167,8 @@ catch {unset url} catch {unset badurl} catch {unset port} catch {unset data} -if {[llength $threadStack]} { - try [lpop threadStack] +if {[info exists httpthread]} { + thread::release $httpthread } else { close $listen } |