From: Wolfram Schneider <wosch@indexdata.dk>
Date: Mon, 26 Apr 2010 15:45:32 +0000 (+0000)
Subject: no redundant timeouts logs
X-Git-Tag: CPAN-v1.02~82
X-Git-Url: http://git.indexdata.com/?p=irspy-moved-to-github.git;a=commitdiff_plain;h=765072147a3a859b2e596edfda01d03eed726746

no redundant timeouts logs
---

diff --git a/lib/ZOOM/IRSpy/Test/Record/Fetch.pm b/lib/ZOOM/IRSpy/Test/Record/Fetch.pm
index b6ff9b4..87c04bd 100644
--- a/lib/ZOOM/IRSpy/Test/Record/Fetch.pm
+++ b/lib/ZOOM/IRSpy/Test/Record/Fetch.pm
@@ -57,16 +57,12 @@ sub completed_search {
 	my $qindex = $udata->{queryindex}+1;
 	my $q = $queries[$qindex];
 	return ZOOM::IRSpy::Status::TEST_SKIPPED
-	    if !defined $q;
+	    if !defined $q || $conn->record->zoom_error->{TIMEOUT} >= $max_timeout_errors;
 
-	if ($conn->record->zoom_error->{TIMEOUT} >= $max_timeout_errors) {
-	    $conn->log("irspy_test", "Got $max_timeout_errors timeouts, give up...");
-        } else {
-	    $conn->log("irspy_test", "Trying another search ...");
-	    $conn->irspy_search_pqf($queries[$qindex], { queryindex => $qindex }, {},
+	$conn->log("irspy_test", "Trying another search ...");
+	$conn->irspy_search_pqf($queries[$qindex], { queryindex => $qindex }, {},
 				ZOOM::Event::ZEND, \&completed_search,
 				exception => \&completed_search);
-	}
 	return ZOOM::IRSpy::Status::TASK_DONE;
     }