$SIG{ALRM} = sub {die} while (1) { print "Getting url... $url\n"; eval { alarm(10); $response = get $url; alarm(0); last; #It should die before coming here }; print "Timed out. Trying again...\n" : } print "Got url!\n";
In reply to Re: LWP Timeout and Alarm handling
by Cine
in thread LWP Timeout and Alarm handling
by daviddhall
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |