Make timeouts overridable per plugin

sorear · Nov 19, 2010 · ad9fd17 · ad9fd17
1 parent a0aa5b8
commit ad9fd17
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/common.pm b/common.pm
@@ -38,11 +38,12 @@ was encountered.
 =cut
 
 my $lwp = LWP::UserAgent->new();
-$lwp->timeout(10);
+our $timeout = 10;
 $lwp->env_proxy();
 
 sub fetch_url {
     my ($url) = @_;
+    $lwp->timeout($timeout);
     my $response = $lwp->get($url);
     if($response->is_success) {
         return $response->content;