merge cleanup io from main trunk

svn path=/bioperl-run/branches/branch-1-0-0/; revision=13036
bioperl · Mar 15, 2002 · 6d42e12 · 6d42e12
1 parent 8da38c6
commit 6d42e12
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/Bio/Tools/Run/StandAloneBlast.pm b/Bio/Tools/Run/StandAloneBlast.pm
@@ -442,6 +442,7 @@ sub exists_blast {
 
 sub blastall {
     my ($self,$input1) = @_;
+    $self->_io_cleanup();
     my $executable = 'blastall';
     my $input2;
 # Create input file pointer