From: Mike Taylor <mike@indexdata.com>
Date: Wed, 25 Oct 2006 13:36:02 +0000 (+0000)
Subject: run() calls set_otions() again at the end to restore old values.
X-Git-Tag: CPAN-v1.02~54^2~861
X-Git-Url: http://git.indexdata.com/?p=irspy-moved-to-github.git;a=commitdiff_plain;h=384f99460a81452f1865a414baa11bfe8bfc19b7;hp=7ab42fd97d4e0726e483f3685e77ad5f6db9f743

run() calls set_otions() again at the end to restore old values.
---

diff --git a/lib/ZOOM/IRSpy/Task/Connect.pm b/lib/ZOOM/IRSpy/Task/Connect.pm
index 4c46053..d0980dc 100644
--- a/lib/ZOOM/IRSpy/Task/Connect.pm
+++ b/lib/ZOOM/IRSpy/Task/Connect.pm
@@ -1,4 +1,4 @@
-# $Id: Connect.pm,v 1.4 2006-10-25 10:54:43 mike Exp $
+# $Id: Connect.pm,v 1.5 2006-10-25 13:36:02 mike Exp $
 
 # See ZOOM/IRSpy/Task/Search.pm for documentation
 
@@ -25,6 +25,8 @@ sub run {
     my $conn = $this->conn();
     $conn->log("irspy_task", "connecting");
     $conn->connect($conn->option("host"));
+
+    $this->set_options();
 }
 
 sub render {
diff --git a/lib/ZOOM/IRSpy/Task/Search.pm b/lib/ZOOM/IRSpy/Task/Search.pm
index e3db632..dacf9c8 100644
--- a/lib/ZOOM/IRSpy/Task/Search.pm
+++ b/lib/ZOOM/IRSpy/Task/Search.pm
@@ -1,4 +1,4 @@
-# $Id: Search.pm,v 1.4 2006-10-25 10:54:43 mike Exp $
+# $Id: Search.pm,v 1.5 2006-10-25 13:36:47 mike Exp $
 
 package ZOOM::IRSpy::Task::Search;
 
@@ -44,6 +44,8 @@ sub run {
 			" searching for '$query'");
     $this->{rs} = $conn->search_pqf($query);
 
+    $this->set_options();
+
     # I want to catch the situation where a search is attempted on a
     # not-yet opened connection (e.g. the Search::Title test is run
     # before Ping) but since this situation doesn't involve the