X-Git-Url: http://scm.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXLog.pm;h=f089d73d0cecc28058bfd975eaf47df79d207ab5;hb=3eb9538d135d9ff21d8ce7c0e0c6b3e6d7fb59a9;hp=8e2fc66febaa2021d06fa641bc8771cace0d9708;hpb=3ba4a53a0fae7b6135ee9b8cd0ab4bbe352b4bdc;p=spider.git

diff --git a/perl/DXLog.pm b/perl/DXLog.pm
index 8e2fc66f..f089d73d 100644
--- a/perl/DXLog.pm
+++ b/perl/DXLog.pm
@@ -161,7 +161,14 @@ sub close
 {
 	my $self = shift;
 	undef $self->{fh};			# close the filehandle
-	delete $self->{fh};
+	delete $self->{fh};	
+}
+
+sub DESTROY
+{
+	my $self = shift;
+	undef $self->{fh};			# close the filehandle
+	delete $self->{fh} if $self->{fh};
 }
 
 # log something in the system log