OK, I was having this problem on my 5.005_03 boxen, but then when I
moved it to my 5.6.0 boxen, I had the _SAME_ problem.
Sample Code:
#!/usr/local/bin/perl -w
use LWP;
use HTTP::Request;
use LWP::UserAgent;
my $request = HTTP::Request->new (GET =>
'https://216.115.106.210/config/login');
my $ua = new LWP::UserAgent;
$request -> push_header('Host','login.yahoo.com');
$ua -> timeout(45);
$SIG{'ALRM'} = sub { die ("Timeout after 45 seconds"); };
$ua -> use_eval(1);
my $response=$ua->request($request);
print $response->code(),"\n";
print $response->message(),"\n";
Now, currently that host is boned, so it should be timing out after
45 seconds with my spiffy error message.
It doesn't.
I have tried it both with and without the "use_eval" line. (Hoping
that the revised code in 5.6.0 would not require it... still no joy).
watchdog6 14:39:50 ~ $ time ./db_test.pl
^C
real 1m43.673s
user 0m0.236s
sys 0m0.048s
So what am I doing wrong?
LWP: 5.48
IO: 1.20 (stock to 5.6.0)
