Prepare for git repository

[spider.git] / perl / DXLogPrint.pm

diff --git a/perl/DXLogPrint.pm b/perl/DXLogPrint.pm
index 8ce8e35c535492b6ec1a1dbe9f6a3176de191d08..326d564e9d2207c524aa2a02522801c185edda91 100644 (file)
--- a/perl/DXLogPrint.pm
+++ b/perl/DXLogPrint.pm
@@ -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