From 0ccf62ac59a4ce292d6296abde96af8abff121c0 Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Wed, 25 Oct 2006 10:52:04 +0000 Subject: [PATCH] irspy_connect() and irspy_seach_pqf() pass their options hashes through into the Task constructors. --- lib/ZOOM/IRSpy/Connection.pm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/lib/ZOOM/IRSpy/Connection.pm b/lib/ZOOM/IRSpy/Connection.pm index 86a8f84..f3cc3d6 100644 --- a/lib/ZOOM/IRSpy/Connection.pm +++ b/lib/ZOOM/IRSpy/Connection.pm @@ -1,4 +1,4 @@ -# $Id: Connection.pm,v 1.4 2006-10-12 16:54:13 mike Exp $ +# $Id: Connection.pm,v 1.5 2006-10-25 10:52:04 mike Exp $ package ZOOM::IRSpy::Connection; @@ -104,18 +104,18 @@ sub log { sub irspy_connect { my $this = shift(); - my($udata, %cb) = @_; + my($udata, $options, %cb) = @_; - my $task = new ZOOM::IRSpy::Task::Connect($this, $udata, %cb); + my $task = new ZOOM::IRSpy::Task::Connect($this, $udata, $options, %cb); $this->add_task($task); } sub irspy_search_pqf { my $this = shift(); - my($query, $udata, %cb) = @_; + my($query, $udata, $options, %cb) = @_; - my $task = new ZOOM::IRSpy::Task::Search($query, $this, $udata, %cb); + my $task = new ZOOM::IRSpy::Task::Search($query, $this, $udata, $options, %cb); $this->add_task($task); } -- 1.7.10.4