Tcl package Thread source code

Artifact d58ef7af2048fe645698d9bca560b867e14a02ed:

Attachment "tpool_threxit_bug1.tcl" to ticket [646509f34f] added by bovine 2016-11-11 23:17:22.

---

#!/usr/local/bin/tclsh

package require Thread

# initialize the thread pool
set mypool [tpool::create -minworkers 1 -maxworkers 5]

# queue up something that exits the thread
tpool::post $mypool "puts \"hello\"; thread::exit"

puts "releasing pool (this hangs)"
tpool::release $mypool