backout [95cb836c8c]: "try [lpop threadStack]", that cannot be right

1 files changed, 2 insertions, 5 deletions

diff --git a/tests/http.test b/tests/http.test
index 1ff570e..6826448 100644
--- a/tests/http.test
+++ b/tests/http.test
@@ -47,7 +47,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
@@ -65,7 +64,6 @@ if {[catch {package present Thread}] == 0 && [file exists $httpdFile]} {
 	catch {unset port}
 	return
     }
-    set threadStack {}
 }
 
 if {![info exists ThreadLevel]} {
@@ -80,7 +78,6 @@ if {![info exists ThreadLevel]} {
     foreach ThreadLevel $ValueRange {
         source [info script]
     }
-    catch {lpop threadStack}
     catch {unset ThreadLevel}
     catch {unset ValueRange}
     return
@@ -1171,8 +1168,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
 }