Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

call cleanup upon _setinput call

svn path=/bioperl-run/branches/branch-1-0-0/; revision=13029
  • Loading branch information...
commit 67bc07dceb51cb9ef3f3f6d7ffd96ba37efff7f3 1 parent 3528f4c
@hyphaltip hyphaltip authored
Showing with 1 addition and 1 deletion.
  1. +1 −1  Bio/Tools/Run/StandAloneBlast.pm
View
2  Bio/Tools/Run/StandAloneBlast.pm
@@ -442,7 +442,6 @@ sub exists_blast {
sub blastall {
my ($self,$input1) = @_;
- $self->_io_cleanup();
my $executable = 'blastall';
my $input2;
# Create input file pointer
@@ -640,6 +639,7 @@ sub _setinput {
my ($seq, $temp, $infilename1, $infilename2,$fh ) ;
# If $input1 is not a reference it better be the name of a file with
# the sequence/ alignment data...
+ $self->_io_cleanup();
SWITCH: {
unless (ref $input1) {
Please sign in to comment.
Something went wrong with that request. Please try again.