my $req = new HTTP::Request GET => 'https://localhost/';
my $res = $ua->request($req);
- return 1 if $res->is_success;
+ return 1 if $res->is_success || $res->status_line =~ /^403/;
$error_msg = $res->status_line;
return 0;
}
#and now for something entirely different...
-my $num_consecutive_bop_failures = 10;
+my $num_consecutive_bop_failures = 40;
sub check_bop_failures {
return 1 if grep { $_->statustext eq 'captured' }