X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXLog.pm;h=f96ab44aa092863d036060b3462d1e4aecea3c2f;hb=2a788b7611dfa76a98a7699518f025b4e905fed2;hp=22f8c808307ce3b4b3fe61f8ce0b6a70a502dd29;hpb=dbf7523a9b228dbdf1d03109afde351b8b194fab;p=spider.git

diff --git a/perl/DXLog.pm b/perl/DXLog.pm
index 22f8c808..f96ab44a 100644
--- a/perl/DXLog.pm
+++ b/perl/DXLog.pm
@@ -99,7 +99,7 @@ sub open
 	$fh->autoflush(1) if $mode ne 'r'; # make it autoflushing if writable
 	$self->{fh} = $fh;
 
-#	DXDebug::dbg("opening $self->{fn}\n") if isdbg("dxlog");
+#	print "opening $self->{fn}\n";
 	
 	return $self->{fh};
 }
@@ -155,7 +155,7 @@ sub write($$$)
 	if (!$self->{fh} || 
 		$self->{mode} ne ">>" || 
 		$jdate->year != $self->{jdate}->year || 
-		$jdate->thing != $self->{jdate}->year) {
+		$jdate->thing != $self->{jdate}->thing) {
 		$self->open($jdate, ">>") or confess "can't open $self->{fn} $!";
 	}