IO::Socket using $! == EINTR

[Konrad Eisele]

Does anyone know a IO::Socket module that handles
signal interrupt on blocking calls correctly (i.e.
when using IO::Socket with Curses and receiving xterm
resize). IO::Socket's filehandler will get invalid
when returning from a interrupted recv call. It should
check $! == EINTR but doesn't.
-- Konrad