fix spurious extra line from previous year

[spider.git] / perl / DXLogPrint.pm

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