From 224eb0f854accae079cd291ebafc238bf9859443 Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Wed, 7 Mar 2007 10:26:50 +0000 Subject: [PATCH] Factor out useless temps. --- lib/ZOOM/IRSpy/Connection.pm | 16 +++++++--------- 1 file changed, 7 insertions(+), 9 deletions(-) diff --git a/lib/ZOOM/IRSpy/Connection.pm b/lib/ZOOM/IRSpy/Connection.pm index 950c19e..8fd6329 100644 --- a/lib/ZOOM/IRSpy/Connection.pm +++ b/lib/ZOOM/IRSpy/Connection.pm @@ -1,4 +1,4 @@ -# $Id: Connection.pm,v 1.8 2007-03-05 19:43:10 mike Exp $ +# $Id: Connection.pm,v 1.9 2007-03-07 10:26:50 mike Exp $ package ZOOM::IRSpy::Connection; @@ -120,8 +120,8 @@ sub irspy_connect { my $this = shift(); my($udata, $options, %cb) = @_; - my $task = new ZOOM::IRSpy::Task::Connect($this, $udata, $options, %cb); - $this->add_task($task); + $this->add_task(new ZOOM::IRSpy::Task::Connect + ($this, $udata, $options, %cb)); } @@ -129,9 +129,8 @@ sub irspy_search_pqf { my $this = shift(); my($query, $udata, $options, %cb) = @_; - my $task = new ZOOM::IRSpy::Task::Search($query, - $this, $udata, $options, %cb); - $this->add_task($task); + $this->add_task(new ZOOM::IRSpy::Task::Search + ($query, $this, $udata, $options, %cb)); } @@ -139,9 +138,8 @@ sub irspy_rs_record { my $this = shift(); my($rs, $index0, $udata, $options, %cb) = @_; - my $task = new ZOOM::IRSpy::Task::Retrieve($rs, $index0, - $this, $udata, $options, %cb); - $this->add_task($task); + $this->add_task(new ZOOM::IRSpy::Task::Retrieve + ($rs, $index0, $this, $udata, $options, %cb)); } -- 1.7.10.4