alarm and pcap::loop

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
.

Relevant Pages

  • Re: alarm and pcap::loop
    ... 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 with use of the alarm function, should it not be exiting after 10 seconds even if a packet has not been received ?? ...
    (perl.beginners)
  • Re: Creating and Destyoying Dialog Box Continuosly.
    ... It still looks like a memory leak somewhere. ... For drawing the graphs, ... In the same packet itself I am ... getting the alarm rising condition and also the alarm removing condition. ...
    (microsoft.public.windowsce.embedded.vc)
  • Re: Creating and Destyoying Dialog Box Continuosly.
    ... Here afetrthe GUI is hanged and the memory status remains the same. ... For drawing the graphs, ... In the same packet itself I am ... getting the alarm rising condition and also the alarm removing condition. ...
    (microsoft.public.windowsce.embedded.vc)