Tcl Source Code

Artifact 51a8f99e04b5e91b8c96364feb9ef65a6a2b0757:

Attachment "ttx" to ticket [593810ffff] added by andreas_kupries 2002-08-21 02:06:45.

---

#memory validate on
package require Thread

set t [thread::create]
puts thread=$t

thread::send $t {set x [socket localhost smtp]}
thread::send $t {puts $x line ; flush $x}	; # CRASH