X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?p=spider.git;a=blobdiff_plain;f=perl%2FDXLog.pm;h=3a6e0e3589ec86b3b53ff00cb665e804b80299e0;hp=96b39971091563c21b5eb08a9498a03e94b09f7d;hb=099c6b4a10d9f1e7471b0c94273cd992b5814cdc;hpb=cce345b95c555a0b45218c5b452bc0f5f4f13bab diff --git a/perl/DXLog.pm b/perl/DXLog.pm index 96b39971..3a6e0e35 100644 --- a/perl/DXLog.pm +++ b/perl/DXLog.pm @@ -176,7 +176,7 @@ sub Log $log->writeunix($t, join('^', $t, @_) ); } -sub DESTROY # catch undefs and do what is required further do the tree +sub DESTROY # catch undefs and do what is required further down the tree { my $self = shift; DXDebug::dbg("dxlog", "closing $self->{fn}\n");