Event and IO::Socket

[Jeff Boes]

Are there any tricks to getting Event to trigger when a socket receives
input?  I'm doing something equivalent to:

    $sock_in = IO::Socket::INET->new(
                                      LocalPort => $cfg->socket_nbr,
                                      Proto => 'udp',
                                      ReuseAddr => 1,
                                      Timeout => 1,
                                     );

and

    $events{socket} =
      Event->io(
                cb       => \&checkin,
                fd       => $sock_in,
                poll     => 'r',
                max      => TIMEOUT_PERIOD,
               );

but I'm not sure I'm on the right track.

-- 
Jeff Boes                                      vox 269.226.9550 ext 24
Database Engineer                                     fax 269.349.9076
Nexcerpt, Inc.                                 http://www.nexcerpt.com
           ...Nexcerpt... Extend your Expertise