Improved timeout handling

This commit is contained in:
root 2008-09-07 02:47:20 +00:00
parent 1cb3ed3788
commit 8871b96ab1

View file

@ -21,6 +21,7 @@ $ua = LWP::UserAgent->new(agent => 'Translingo Client 1.0');
use HTTP::Request::Common qw(POST); use HTTP::Request::Common qw(POST);
$ua->cookie_jar({}); $ua->cookie_jar({});
$ua->timeout(10000);
my $req = POST 'http://translingo.cacert.org/login.php', my $req = POST 'http://translingo.cacert.org/login.php',
[ [