File - sample.tcl

package require Expect
spawn telnet


Script being executed -

set inputListToRun(12) 1
package require Thread
set pool [tpool::create -minworkers [array size inputListToRun] -initcmd {
source sample.tcl
}]

Output - Segmentation fault (core dumped)


Version of OS - CentOS 7
Tclsh version - 8.6
Expect version - 5.45
Thread version - 2.7.2