From f87e100731a2d67fcbac3fa297934bbba91b7889 Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Thu, 27 Oct 2022 21:19:36 +0000
Subject: try -> catch

---
 tests/http.test | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tests/http.test b/tests/http.test
index eb2bf29..1ff570e 100644
--- a/tests/http.test
+++ b/tests/http.test
@@ -80,7 +80,7 @@ if {![info exists ThreadLevel]} {
     foreach ThreadLevel $ValueRange {
         source [info script]
     }
-    try [lpop threadStack]
+    catch {lpop threadStack}
     catch {unset ThreadLevel}
     catch {unset ValueRange}
     return
-- 
cgit v0.12


From c0cffed37f1950c005805fe0b43a8993dad46f49 Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Thu, 27 Oct 2022 21:58:38 +0000
Subject: backout [95cb836c8c]: "try [lpop threadStack]", that cannot be right

---
 tests/http.test | 7 ++-----
 1 file 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
 }
-- 
cgit v0.12