X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXLog.pm;fp=perl%2FDXLog.pm;h=0327a7c7d251913200acc69ee2e015aad9975503;hb=5e50c4fa111795e0cea2325d68bf1d2a9ce14f18;hp=e8d289b0995079b531eb0ce8ff1431626583db3a;hpb=9d24fd4aa2eb1bb4e9d86ada66e46f77962a5fa7;p=spider.git

diff --git a/perl/DXLog.pm b/perl/DXLog.pm
index e8d289b0..0327a7c7 100644
--- a/perl/DXLog.pm
+++ b/perl/DXLog.pm
@@ -206,6 +206,8 @@ sub DESTROY
 # The user is responsible for making sense of this!
 sub Log
 {
+	return unless $log;
+	
 	my $t = time;
 	$log->writeunix($t, join('^', $t, @_) );
 }
@@ -219,5 +221,6 @@ sub LogDbg
 sub Logclose
 {
 	$log->close();
+	undef $log;
 }
 1;