Tcl Source Code

Artifact d446e7167060f970ce98be5929aec9cb9e8acdcc:

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

---

#memory validate on
package require Thread

set s [socket localhost smtp]
puts sock=$s

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

thread::transfer $t $s

thread::send  $t "puts $s line ; flush $s"	; # CRASH
#thread::send  $t "puts $s line"		; # ok
#thread::send  $t "flush $s"			; # ok