From 665545d05f1b2f5edc1f17a84d02fedc71a6e430 Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Tue, 13 Mar 2007 16:12:38 +0000 Subject: [PATCH] Remove fatuous attempt to destroy old result-sets. Add comment on application's responsibilities. --- lib/ZOOM/IRSpy/Task/Search.pm | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/lib/ZOOM/IRSpy/Task/Search.pm b/lib/ZOOM/IRSpy/Task/Search.pm index 91af576..da0fc29 100644 --- a/lib/ZOOM/IRSpy/Task/Search.pm +++ b/lib/ZOOM/IRSpy/Task/Search.pm @@ -1,4 +1,4 @@ -# $Id: Search.pm,v 1.11 2007-03-09 08:57:34 mike Exp $ +# $Id: Search.pm,v 1.12 2007-03-13 16:12:38 mike Exp $ package ZOOM::IRSpy::Task::Search; @@ -44,7 +44,14 @@ sub run { my $query = $this->{query}; $this->irspy()->log("irspy_task", $conn->option("host"), " searching for '$query'"); - $this->{rs}->destroy() if defined $this->{rs}; + die "task $this has resultset?!" if defined $this->{rs}; + + ### NOTE WELL that when this task runs, it creates a result-set + # object which MUST BE DESTROYED in order to prevent large-scale + # memory leakage. So when creating a Task::Search, it is the + # APPLICATION'S RESPONSIBILITY to ensure that the callback + # invoked on success makes arrangements for the set to be + # destroyed. $this->{rs} = $conn->search_pqf($query); warn "no ZOOM-C level events queued by $this" if $conn->is_idle(); -- 1.7.10.4