in reply to Slow sockets
PS This is a module in the real program.
Then it would have been better if you'd posted the code as module. Like this, it doesn't make much sense. No package declaration - __PACKAGE__ is main here.
I don't see the purpose of blessing and OO-ado in your new() function (or method, whatever), since it doesn't return an object, but the result of reap_zombies(); and it even doesn't return because it loops. It returns only if the accept() call fails, which looks to me rather like a condition to carp, croak or confess when it is encountered.
--shmem
_($_=" "x(1<<5)."?\n".q·/)Oo. G°\ /
/\_¯/(q /
---------------------------- \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}
|
|---|