From 325dcc4a37a98670368e8de907bbdbe703012456 Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Thu, 12 Oct 2006 14:35:43 +0000 Subject: [PATCH] irspy_connect() and irspy_search_pqf() have new $udata parameter. This is passed into their task constructors. --- lib/ZOOM/IRSpy/Connection.pm | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/lib/ZOOM/IRSpy/Connection.pm b/lib/ZOOM/IRSpy/Connection.pm index 7923893..656bd3b 100644 --- a/lib/ZOOM/IRSpy/Connection.pm +++ b/lib/ZOOM/IRSpy/Connection.pm @@ -1,4 +1,4 @@ -# $Id: Connection.pm,v 1.2 2006-10-11 16:46:01 mike Exp $ +# $Id: Connection.pm,v 1.3 2006-10-12 14:35:43 mike Exp $ package ZOOM::IRSpy::Connection; @@ -104,18 +104,20 @@ sub log { sub irspy_connect { my $this = shift(); - my(%cb) = @_; + my($udata, %cb) = @_; - $this->add_task(new ZOOM::IRSpy::Task::Connect($this, %cb)); + my $task = new ZOOM::IRSpy::Task::Connect($this, $udata, %cb); + $this->add_task($task); $this->log("irspy", "registered connect()"); } sub irspy_search_pqf { my $this = shift(); - my($query, %cb) = @_; + my($query, $udata, %cb) = @_; - $this->add_task(new ZOOM::IRSpy::Task::Search($query, $this, %cb)); + my $task = new ZOOM::IRSpy::Task::Search($query, $this, $udata, %cb); + $this->add_task($task); $this->log("irspy", "registered search_pqf($query)"); } -- 1.7.10.4