X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXLog.pm;h=607630853b3a0de108a32c65c3c86f9a716afa61;hb=aaf98478dc930b9d337c85c41316a926046d7ae2;hp=c13e26c1d8ffac4b8c641802c1af75f1ede6643f;hpb=55728c213e0afdfebbbc5bf039ccb47f1eb6a0b0;p=spider.git diff --git a/perl/DXLog.pm b/perl/DXLog.pm index c13e26c1..60763085 100644 --- a/perl/DXLog.pm +++ b/perl/DXLog.pm @@ -92,14 +92,13 @@ sub open $mode = 'r' if !$mode; $self->{mode} = $mode; + $self->{jdate} = $jdate; my $fh = new IO::File $self->{fn}, $mode, 0666; return undef if !$fh; $fh->autoflush(1) if $mode ne 'r'; # make it autoflushing if writable $self->{fh} = $fh; - $self->{jdate} = $jdate; - # DXDebug::dbg("opening $self->{fn}\n") if isdbg("dxlog"); return $self->{fh};