From: Mike Taylor <mike@indexdata.com>
Date: Mon, 29 Jan 2007 17:32:57 +0000 (+0000)
Subject: Error on search (e.g. unsupported use attribute) falls through to
X-Git-Tag: CPAN-v1.02~637
X-Git-Url: http://lists.indexdata.com/cgi-bin?a=commitdiff_plain;h=2e680ee477eed1312a3a2035a720a2451f8cdd64;p=irspy-moved-to-github.git

Error on search (e.g. unsupported use attribute) falls through to
trying next query on list rather than failing outright.
---

diff --git a/lib/ZOOM/IRSpy/Test/Record/Fetch.pm b/lib/ZOOM/IRSpy/Test/Record/Fetch.pm
index 049e169..9c2663f 100644
--- a/lib/ZOOM/IRSpy/Test/Record/Fetch.pm
+++ b/lib/ZOOM/IRSpy/Test/Record/Fetch.pm
@@ -1,4 +1,4 @@
-# $Id: Fetch.pm,v 1.19 2007-01-29 17:24:51 mike Exp $
+# $Id: Fetch.pm,v 1.20 2007-01-29 17:32:57 mike Exp $
 
 # See the "Main" test package for documentation
 
@@ -30,7 +30,7 @@ sub start {
     # But how?  So far we search for title: 1=4
     $conn->irspy_search_pqf($queries[0], { queryindex => 0 }, {},
 			    ZOOM::Event::RECV_SEARCH, \&completed_search,
-			    exception => \&search_error);
+			    exception => \&completed_search);
 }
 
 
@@ -46,7 +46,7 @@ sub completed_search {
 	    $conn->log("irspy_test", "Trying another search ...");
 	    $conn->irspy_search_pqf($queries[$n], { queryindex => $n }, {},
 				    ZOOM::Event::RECV_SEARCH, \&completed_search,
-				    exception => \&search_error);
+				    exception => \&completed_search);
 	    return ZOOM::IRSpy::Status::TASK_DONE;
 	} else {
 	    return ZOOM::IRSpy::Status::TEST_SKIPPED;
@@ -133,7 +133,7 @@ sub _fetch_record {
 }
 
 
-sub search_error {
+sub __UNUSED_search_error {
     my($conn, $task, $test_args, $exception) = @_;
 
     $conn->log("irspy_test", "Initial search failed: ", $exception);