From 8366b16f287bfd5cefb578484dd0d6de5af0ba0e Mon Sep 17 00:00:00 2001 From: Wolfram Schneider Date: Mon, 26 Apr 2010 15:45:32 +0000 Subject: [PATCH] no redundant timeouts logs --- lib/ZOOM/IRSpy/Test/Record/Fetch.pm | 10 +++------- 1 file changed, 3 insertions(+), 7 deletions(-) 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; } -- 1.7.10.4