Skip to content

Commit

Permalink
Merge 8.7
Browse files Browse the repository at this point in the history
  • Loading branch information
jan.nijtmans committed Dec 20, 2023
2 parents 3c3bf45 + cff4039 commit afcf2d6
Show file tree
Hide file tree
Showing 7 changed files with 506 additions and 217 deletions.
6 changes: 3 additions & 3 deletions library/http/http.tcl
Original file line number Diff line number Diff line change
Expand Up @@ -5359,10 +5359,10 @@ proc http::LoadThreadIfNeeded {} {
set http(usingThread) 0
return
}
if {[catch {package require Thread 2.8.9-}]} {
if {[catch {package require Thread}]} {
if {$http(-threadlevel) == 2} {
set msg {[http::config -threadlevel] has value 2,\
but the Thread package (2.8.9 or above) is not available}
but the Thread package is not available}
return -code error $msg
}
set http(usingThread) 0
Expand All @@ -5389,7 +5389,7 @@ proc http::LoadThreadIfNeeded {} {
# ------------------------------------------------------------------------------

proc http::SockInThread {caller defcmd sockargs} {
package require Thread 2.8.9-
package require Thread

set catchCode [catch {eval $defcmd $sockargs} sock errdict]
if {$catchCode == 0} {
Expand Down
Loading

0 comments on commit afcf2d6

Please sign in to comment.