[Bioperl-guts-l] [15026] bioperl-live/trunk/Bio/Seq/LargeLocatableSeq.pm: silence the warnings about removing the temporary files.

[Heikki Lehvaslaiho]

Revision: 15026
Author:   heikki
Date:     2008-11-26 02:36:46 -0500 (Wed, 26 Nov 2008)

Log Message:
-----------
silence the warnings about removing the temporary files. Tests in t/AlignIO_largemultifasta.t are now cleaner

Modified Paths:
--------------
    bioperl-live/trunk/Bio/Seq/LargeLocatableSeq.pm

Modified: bioperl-live/trunk/Bio/Seq/LargeLocatableSeq.pm
===================================================================
--- bioperl-live/trunk/Bio/Seq/LargeLocatableSeq.pm	2008-11-26 00:03:19 UTC (rev 15025)
+++ bioperl-live/trunk/Bio/Seq/LargeLocatableSeq.pm	2008-11-26 07:36:46 UTC (rev 15026)
@@ -320,11 +320,14 @@
 
 sub DESTROY {
     my $self = shift;
+    my $verbose = $self->verbose();
+    $self->verbose(-1);
     my $fh = $self->_fh();
     close($fh) if( defined $fh );
     # this should be handled by Tempfile removal, but we'll unlink anyways.
     unlink $self->_filename() if defined $self->_filename() && -e $self->_filename;
     $self->SUPER::DESTROY();
+    $self->verbose($verbose);
 }
 
 1;