X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=lib%2FZOOM%2FIRSpy%2FTask%2FSearch.pm;h=8437586176c3644dff47df4f0b9c8cdde13c5e68;hb=00450608fbb1abc4bd5e75d269ff0c87f87b9b48;hp=6c81e01e8a9478a622f5bcdc8bddfb343b651dfe;hpb=7249718226f5673f66d70044122215f673ada875;p=irspy-moved-to-github.git diff --git a/lib/ZOOM/IRSpy/Task/Search.pm b/lib/ZOOM/IRSpy/Task/Search.pm index 6c81e01..8437586 100644 --- a/lib/ZOOM/IRSpy/Task/Search.pm +++ b/lib/ZOOM/IRSpy/Task/Search.pm @@ -1,4 +1,3 @@ -# $Id: Search.pm,v 1.15 2007-05-01 16:30:42 mike Exp $ package ZOOM::IRSpy::Task::Search; @@ -66,7 +65,12 @@ sub run { # APPLICATION'S RESPONSIBILITY to ensure that the callback # invoked on success OR FAILURE makes arrangements for the set # to be destroyed. - $this->{rs} = $conn->search($query); + eval { + $this->{rs} = $conn->search($query); + }; if ($@) { + die "remote search '$query' had error: '$@'"; + } + warn "no ZOOM-C level events queued by $this" if $conn->is_idle();