alarm and pcap::loop

[Michael Gale]

Hello,

        I am having a problem with the following piece of code:
Current Net::Pcap is setup to have  a capture limit of 1. So if 1 packet 
is received my script exits and prints the message "time out did not 
occure. But if a packet arrives after the timeout it prints "time out 
occured".

But with use of the alarm function, should it not be exiting after 10 
seconds even if a packet has not been received ??


--snip--
&packet_cap_setup();
eval {
        local $SIG{ALRM} = sub { die "alarm\n" };
        alarm 10;
                Net::Pcap::loop($pcap_t, 1, \&packet_cap_process, 'dhcp');
        alarm 0;
        } ;
        if ($@) {
                die unless $@ eq "alarm\n";
                print "Time out occured\n";           
        } else {
                print "Time out did not occue\n";
                }
                
&packet_cap_close();
--snip--

Thanks

Michael

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>