[Bioperl-guts-l] [14796] bioperl-run/trunk/Bio/Tools/Run/TigrAssembler.pm: Closed 3 filehandles that were not

[Florent E Angly]

Revision: 14796
Author:   fangly
Date:     2008-08-10 21:24:24 -0400 (Sun, 10 Aug 2008)

Log Message:
-----------
Closed 3 filehandles that were not

Modified Paths:
--------------
    bioperl-run/trunk/Bio/Tools/Run/TigrAssembler.pm

Modified: bioperl-run/trunk/Bio/Tools/Run/TigrAssembler.pm
===================================================================
--- bioperl-run/trunk/Bio/Tools/Run/TigrAssembler.pm	2008-08-10 23:34:07 UTC (rev 14795)
+++ bioperl-run/trunk/Bio/Tools/Run/TigrAssembler.pm	2008-08-11 01:24:24 UTC (rev 14796)
@@ -416,7 +416,12 @@
   $self->debug(join("\n", 'TIGR Assembler STDERR:', $stderr_file))
     if $stderr_file;
     # TIGR Assembler's stderr reports a lot more than just errors
-  
+ 
+  # Close filehandles
+  close($scratch_fh);
+  close($output_fh);
+  close($stderr_fh);
+ 
   # Import assembly
   my $asm_io = Bio::Assembly::IO->new(
     -file   => "<$output_file",