The following code shows a memory leak in tcludp 1.0.8
on my linux fedora 6 box running activestate tcl 8.4.14
# Create a time/date server via udp
package require udp
proc initBroadCaster { port } {
set bfd [udp_open $port ]
fconfigure $bfd -buffering none -blocking 0
fileevent $bfd readable [list sendTime $bfd ]
}
proc sendTime { sock } {
set data [read $sock]
set peer [fconfigure $sock -peer]
fconfigure $sock -remote $peer
puts -nonewline $sock "[clock format [clock seconds ] -format %X ]"
}
initBroadCaster 10000
vwait forever
#################################################################333
running some simple clients against the above server
shows that the server memory is constantly increasing,,,
I have had to quit using tcl upd in some of my
servers.
Thanks,
Jerry
jerry.levan@gmail.com
Logged In: YES
user_id=202636
Originator: NO
comp.lang.tcl thread http://groups.google.co.uk/group/comp.lang.tcl/browse_thread/thread/ca44af8c7b7b6dda/ba64ad0cc7b36512?lnk=st&q=tcludp&rnum=1&hl=en#ba64ad0cc7b36512