From 715a6bd10c2de57d014127752035efc2fd7f1e5e Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Fri, 9 Mar 2007 08:57:34 +0000 Subject: [PATCH] Destroy connection's old result-set when making a new one. --- lib/ZOOM/IRSpy/Task/Search.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lib/ZOOM/IRSpy/Task/Search.pm b/lib/ZOOM/IRSpy/Task/Search.pm index 13794ce..91af576 100644 --- a/lib/ZOOM/IRSpy/Task/Search.pm +++ b/lib/ZOOM/IRSpy/Task/Search.pm @@ -1,4 +1,4 @@ -# $Id: Search.pm,v 1.10 2007-03-07 17:59:53 mike Exp $ +# $Id: Search.pm,v 1.11 2007-03-09 08:57:34 mike Exp $ package ZOOM::IRSpy::Task::Search; @@ -44,6 +44,7 @@ sub run { my $query = $this->{query}; $this->irspy()->log("irspy_task", $conn->option("host"), " searching for '$query'"); + $this->{rs}->destroy() if defined $this->{rs}; $this->{rs} = $conn->search_pqf($query); warn "no ZOOM-C level events queued by $this" if $conn->is_idle(); -- 1.7.10.4