From b2a36ff934e7ceac5fe7f52b5a898481cda8b153 Mon Sep 17 00:00:00 2001 From: Chris Fields Date: Mon, 1 Oct 2012 12:45:32 -0500 Subject: [PATCH] squash a couple of warnings with more recent versions of perl --- Bio/AlignIO/phylip.pm | 2 +- Bio/Tools/Run/WrapperBase.pm | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/Bio/AlignIO/phylip.pm b/Bio/AlignIO/phylip.pm index b68ad447c..b78a5dbb0 100644 --- a/Bio/AlignIO/phylip.pm +++ b/Bio/AlignIO/phylip.pm @@ -274,7 +274,7 @@ sub next_aln { } for ($count=0; $count<$seqcount; $count++) { $str = $hash{$count}; - my $seqname = @names[$count]; + my $seqname = $names[$count]; if (length($str) != $residuecount) { $self->warn("Failed to parse PHYLIP: Sequence $seqname was the wrong length: " . length($str) . " instead of $residuecount."); } diff --git a/Bio/Tools/Run/WrapperBase.pm b/Bio/Tools/Run/WrapperBase.pm index 0e1433174..47ea491bb 100644 --- a/Bio/Tools/Run/WrapperBase.pm +++ b/Bio/Tools/Run/WrapperBase.pm @@ -188,7 +188,7 @@ sub no_param_checks{ sub save_tempfiles{ my $self = shift; my @args = @_; - if ((@args[0]) && (exists ($self->{'_tmpdir'}))) { + if (($args[0]) && (exists ($self->{'_tmpdir'}))) { $self->warn ("Tempdir already created; setting save_tempfiles will not affect cleanup behavior."); } return $self->io->save_tempfiles(@_); -- 2.11.4.GIT