X-Git-Url: http://git.indexdata.com/?p=irspy-moved-to-github.git;a=blobdiff_plain;f=lib%2FZOOM%2FIRSpy%2FConnection.pm;h=a25d2ea78913288cede26d9dc2ed9a405e15bc21;hp=f5aa5690d49be41dc932659542a4e1b1ced4c052;hb=b500042851eb56cc76b155cec8cdde38054a2398;hpb=7000d72c8cf061be6be741b1d66354ce92697b33 diff --git a/lib/ZOOM/IRSpy/Connection.pm b/lib/ZOOM/IRSpy/Connection.pm index f5aa569..a25d2ea 100644 --- a/lib/ZOOM/IRSpy/Connection.pm +++ b/lib/ZOOM/IRSpy/Connection.pm @@ -1,4 +1,4 @@ -# $Id: Connection.pm,v 1.15 2007-05-01 15:33:30 mike Exp $ +# $Id: Connection.pm,v 1.16 2007-05-01 16:30:17 mike Exp $ package ZOOM::IRSpy::Connection; @@ -136,6 +136,7 @@ sub irspy_search { my $this = shift(); my($qtype, $qstr, $udata, $options, %cb) = @_; + #warn "calling $this->irspy_search(", join(", ", @_), ")\n"; $this->add_task(new ZOOM::IRSpy::Task::Search ($qtype, $qstr, $this, $udata, $options, %cb)); }