From: Mike Taylor <mike@indexdata.com>
Date: Wed, 7 Mar 2007 11:41:01 +0000 (+0000)
Subject: Explicit reconnection attempt before each search.
X-Git-Tag: CPAN-v1.02~549
X-Git-Url: http://git.indexdata.com/?p=irspy-moved-to-github.git;a=commitdiff_plain;h=c29ed3b4530cee401ab343386de82b535047347d

Explicit reconnection attempt before each search.
---

diff --git a/lib/ZOOM/IRSpy/Task/Search.pm b/lib/ZOOM/IRSpy/Task/Search.pm
index 01d34a8..b13903b 100644
--- a/lib/ZOOM/IRSpy/Task/Search.pm
+++ b/lib/ZOOM/IRSpy/Task/Search.pm
@@ -1,4 +1,4 @@
-# $Id: Search.pm,v 1.8 2007-02-26 14:27:50 mike Exp $
+# $Id: Search.pm,v 1.9 2007-03-07 11:41:01 mike Exp $
 
 package ZOOM::IRSpy::Task::Search;
 
@@ -39,6 +39,10 @@ sub run {
     $this->set_options();
 
     my $conn = $this->conn();
+    ### Note that adding this next line DOES NOT HELP at the moment --
+    #   perhaps because of a ZOOM-C bug?
+    $conn->connect($conn->option("host"));
+
     my $query = $this->{query};
     $this->irspy()->log("irspy_task", $conn->option("host"),
 			" searching for '$query'");