Sleep 10 seconds when we cannot get response

katkad · Oct 14, 2015 · 58b1f2f · 58b1f2f
1 parent f134440
commit 58b1f2f
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/scraper.pl b/scraper.pl
@@ -22,6 +22,7 @@ sub get
 		$resp = WWW::Mechanize::get (@_);
 		last if $resp->is_success;
 		warn $resp->request->uri.': '.$resp->status_line;
+        sleep 10;
 	}
 
 	return $resp;
@@ -30,7 +31,7 @@ sub get
 sub new
 {
 	my $self = WWW::Mechanize::new (@_);
-	$self->timeout (300);
+	$self->timeout (60);
 	return bless $self;
 }