X-Git-Url: http://git.indexdata.com/?p=irspy-moved-to-github.git;a=blobdiff_plain;f=lib%2FZOOM%2FIRSpy%2FTest%2FRecord%2FFetch.pm;h=87c04bd6be6767847c6cfb4a84af111a963b266d;hp=b6ff9b4a89a57251622972437e4ab1f9c337d25b;hb=765072147a3a859b2e596edfda01d03eed726746;hpb=16ed8057d606960239c413e0430c3d6abb5d48d7 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; }