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 (file)
--- 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 (file)
--- 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