X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=lib%2FZOOM%2FIRSpy%2FTask%2FSearch.pm;h=73c84976c04aa1e43f4bd2b7140bb166217508f6;hb=HEAD;hp=68397c089ddbd5a4b4fb97c96b1ac055c63e9fa2;hpb=d8e118addf1d7f926538a345a20cc731d537c07a;p=irspy-moved-to-github.git diff --git a/lib/ZOOM/IRSpy/Task/Search.pm b/lib/ZOOM/IRSpy/Task/Search.pm index 68397c0..73c8497 100644 --- a/lib/ZOOM/IRSpy/Task/Search.pm +++ b/lib/ZOOM/IRSpy/Task/Search.pm @@ -1,4 +1,3 @@ -# $Id: Search.pm,v 1.16 2007-12-18 11:59:42 mike Exp $ package ZOOM::IRSpy::Task::Search; @@ -49,7 +48,10 @@ sub run { my $qstr = $this->{qstr}; $this->irspy()->log("irspy_task", $conn->option("host"), " searching for '$qtype:$qstr'"); - die "task $this has resultset?!" if defined $this->{rs}; + if (defined $this->{rs}) { + $this->set_options(); + die "task $this has resultset?!"; + } my $query; if ($qtype eq "pqf") { @@ -57,6 +59,7 @@ sub run { } elsif ($qtype eq "cql") { $query = new ZOOM::Query::CQL($qstr); } else { + $this->set_options(); die "Huh?!"; } @@ -69,6 +72,7 @@ sub run { eval { $this->{rs} = $conn->search($query); }; if ($@) { + $this->set_options(); die "remote search '$query' had error: '$@'"; }