From 384f99460a81452f1865a414baa11bfe8bfc19b7 Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Wed, 25 Oct 2006 13:36:02 +0000 Subject: [PATCH] run() calls set_otions() again at the end to restore old values. --- lib/ZOOM/IRSpy/Task/Connect.pm | 4 +++- lib/ZOOM/IRSpy/Task/Search.pm | 4 +++- 2 files changed, 6 insertions(+), 2 deletions(-) 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 -- 1.7.10.4