X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXLog.pm;h=3a6e0e3589ec86b3b53ff00cb665e804b80299e0;hb=099c6b4a10d9f1e7471b0c94273cd992b5814cdc;hp=e4f228035194c42dea45ab9b9129c5e5f7666e6c;hpb=cef696652d16bbeec53aca45234ea0b64f3496d3;p=spider.git diff --git a/perl/DXLog.pm b/perl/DXLog.pm index e4f22803..3a6e0e35 100644 --- a/perl/DXLog.pm +++ b/perl/DXLog.pm @@ -37,7 +37,6 @@ use Julian; use Carp; use strict; - use vars qw($log); $log = new('log', 'dat', 'm'); @@ -177,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");