On Apr 5, 2009, at 7:03 AM, Matt Jones wrote:
Hi folks,
I'm having an issue with the tcp-connect function. When it fails to
connect, it seems not to clean up properly, so that I end up with
lots of open ports.
Try this code:
(require-extension tcp)
(define (error-info e)
((condition-property-accessor 'exn 'message) e))
(define (test-tcp-connect)
(condition-case
(tcp-connect "localhost" 8000)
(e (exn i/o net) (print (error-info e)))))
assuming there is nothing on port 8000. Then,
(let loop ((i 0)) (when (< i 2000) (test-tcp-connect) (loop (+ i
1))))
I get,
can not create socket - Connection refused
can not create socket - Connection refused
...
can not create socket - Too many open files
can not create socket - Too many open files
...
I'm using Version 2.731 - linux-unix-gnu-x86.
Versions before 3.0 are unsupported AFAIK. Packaged sources are
available at the Chicken website: http://call-with-current-continuation.org
as are instructions for accessing the source repository.
You should know the release of Chicken 4 is imminent. At which point
Chicken 3 will go into maintenance mode.
Is this a bug, or is there some way for me to release these ports
when I handle the exception?
Thanks!
Matt
_______________________________________________
Chicken-users mailing list
[email protected]
http://lists.nongnu.org/mailman/listinfo/chicken-users
Best Wishes,
Kon
_______________________________________________
Chicken-users mailing list
[email protected]
http://lists.nongnu.org/mailman/listinfo/chicken-users
