From 9fb5a06a812743bf1c47ac111a61659d3bdca8ca Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Fri, 7 Aug 2015 22:28:09 -0700
Subject: [PATCH] track when a record ends and begins

---
 Debbugs/Log.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/Debbugs/Log.pm b/Debbugs/Log.pm
index 5a7306d..e97bfac 100644
--- a/Debbugs/Log.pm
+++ b/Debbugs/Log.pm
@@ -236,6 +236,7 @@ sub read_record
     my $record = {};
 
     while (defined (my $line = <$logfh>)) {
+        $record->{start} = $logfh->tell() if not defined $record->{start};
 	chomp $line;
 	++$this->{linenum};
 	if (length($line) == 1 and exists $states{ord($line)}) {
-- 
2.39.2