projects
/
irspy-moved-to-github.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
16ed805
)
no redundant timeouts logs
author
Wolfram Schneider
<wosch@indexdata.dk>
Mon, 26 Apr 2010 15:45:32 +0000
(15:45 +0000)
committer
Wolfram Schneider
<wosch@indexdata.dk>
Mon, 26 Apr 2010 15:45:32 +0000
(15:45 +0000)
lib/ZOOM/IRSpy/Test/Record/Fetch.pm
patch
|
blob
|
history
diff --git
a/lib/ZOOM/IRSpy/Test/Record/Fetch.pm
b/lib/ZOOM/IRSpy/Test/Record/Fetch.pm
index
b6ff9b4
..
87c04bd
100644
(file)
--- 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
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);
ZOOM::Event::ZEND, \&completed_search,
exception => \&completed_search);
- }
return ZOOM::IRSpy::Status::TASK_DONE;
}
return ZOOM::IRSpy::Status::TASK_DONE;
}