Tcl Source Code

Artifact 41936cb1eba107dae2e04d3050f473f828baa4a371c73d4f34c99e6bd747cbad:

Attachment "socketservertransfer.tcl" to ticket [75d525d37c] added by apnadkarni 2020-01-31 12:54:56.

---

package require Thread

proc accept args {}

set victim [thread::create]
thread::send $victim [list proc accept args {}]
set so [socket -server accept 12345]
thread::transfer $victim $so
update
while {1} {
    set client [socket 127.0.0.1 12345]
    update
    close $client
}