X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXLog.pm;h=1113bc247b2d0a58d412d80104a18987320cb225;hb=0144bfc7a3550b04e9f319ae3d19f12c532f380e;hp=ede817aa446fdae1dc89ae634488401206bc74d5;hpb=e25af156a00360c832bec86efe4ab3242e959030;p=spider.git

diff --git a/perl/DXLog.pm b/perl/DXLog.pm
index ede817aa..1113bc24 100644
--- a/perl/DXLog.pm
+++ b/perl/DXLog.pm
@@ -148,6 +148,7 @@ sub unixtoj($$)
 sub write($$$)
 {
 	my ($self, $jdate, $line) = @_;
+	return unless $self && $jdate;
 	if (!$self->{fh} || 
 		$self->{mode} ne ">>" || 
 		$jdate->year != $self->{jdate}->year ||