From 69fc555a9612309130ff140c9896557641c2d7c1 Mon Sep 17 00:00:00 2001 From: jason Date: Thu, 14 Aug 2003 21:17:40 +0000 Subject: [PATCH] can't declare are expect a variable at the same time svn path=/bioperl-run/trunk/; revision=13487 --- Bio/Tools/Run/Alignment/Lagan.pm | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/Bio/Tools/Run/Alignment/Lagan.pm b/Bio/Tools/Run/Alignment/Lagan.pm index 944ab44..cfc4553 100644 --- a/Bio/Tools/Run/Alignment/Lagan.pm +++ b/Bio/Tools/Run/Alignment/Lagan.pm @@ -12,8 +12,7 @@ =head1 NAME -Bio::Tools::Run::Alignment::Lagan - Object for the local execution of the LAGAN suite -of tools (including MLAGAN for multiple sequence alignments) +Bio::Tools::Run::Alignment::Lagan - Object for the local execution of the LAGAN suite of tools (including MLAGAN for multiple sequence alignments) =head1 SYNOPSIS @@ -201,7 +200,6 @@ sub lagan { #my (undef, $tempfile) = $self->io->tempfile(); #$self->out($tempfile); - my ($infile1, $infile2) = $self->_setinput($executable, $input1, $input2); my $lagan_report = &_generic_lagan( $self, $executable, @@ -221,7 +219,8 @@ sub mlagan { my ($self, $input1, $tree) = @_; $self->io->_io_cleanup(); my $executable = 'mlagan'; - my ($infiles, $tree) = $self->_setinput($executable, $input1, $tree); + my $infiles; + ($infiles, $tree) = $self->_setinput($executable, $input1, $tree); my $lagan_report = &_generic_lagan ( $self, $executable, $infiles, -- 2.11.4.GIT