- my $n = $udata->{queryindex}+1;
- my $q = $queries[$n];
- if (defined $q) {
- $conn->log("irspy_test", "Trying another search ...");
- $conn->irspy_search_pqf($queries[$n], { queryindex => $n }, {},
- ZOOM::Event::RECV_SEARCH, \&completed_search,
- exception => \&completed_search);
- return ZOOM::IRSpy::Status::TASK_DONE;
- } else {
- return ZOOM::IRSpy::Status::TEST_SKIPPED;
- }
+ my $qindex = $udata->{queryindex}+1;
+ my $q = $queries[$qindex];
+ return ZOOM::IRSpy::Status::TEST_SKIPPED
+ if !defined $q;
+
+ $conn->log("irspy_test", "Trying another search ...");
+ $conn->irspy_search_pqf($queries[$qindex], { queryindex => $n }, {},
+ ZOOM::Event::RECV_SEARCH, \&completed_search,
+ exception => \&completed_search);
+ return ZOOM::IRSpy::Status::TASK_DONE;