Merge branch 'newpc92timings' of /scm/spider into newpc92timings

[spider.git] / perl / DXLogPrint.pm

diff --git a/perl/DXLogPrint.pm b/perl/DXLogPrint.pm
index 8ce8e35c535492b6ec1a1dbe9f6a3176de191d08..c2843ed579b22e580fc978bd81325b7ea144912b 100644 (file)
--- a/perl/DXLogPrint.pm
+++ b/perl/DXLogPrint.pm
@@ -3,7 +3,7 @@
 #
 # Copyright (c) - 1998 Dirk Koopman G1TLH
 #
-# $Id$
+#
 #
 
 package DXLog;
@@ -18,12 +18,7 @@ use RingBuf;
 
 use strict;
 
-use vars qw($VERSION $BRANCH $maxmonths);
-$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/  || (0,0));
-$main::build += $VERSION;
-$main::branch += $BRANCH;
-
+use vars qw($maxmonths);
 $maxmonths = 36;
 
 #
@@ -84,7 +79,7 @@ sub print
                        return ("Log search error", $@) if $@;
                        
                        @in = ($ring->readall, @in);
-                       last L1 if @in > $tot;
+                       last L1 if @in >= $tot;
                }
 
                $fh = $fcb->openprev();      # get the next file