X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=Debbugs%2FLog.pm;fp=Debbugs%2FLog.pm;h=d824d9a996d1b3fdce8fae13954fb28d7614e55c;hb=53c435119200ab9b1c2538a96b8374c51a078855;hp=2531a6d5c22e017d3dcc8db9ba07e9029825a2fd;hpb=0e8f07fda6e40b5967d9c6b28b3200db22766343;p=debbugs.git

diff --git a/Debbugs/Log.pm b/Debbugs/Log.pm
index 2531a6d..d824d9a 100644
--- a/Debbugs/Log.pm
+++ b/Debbugs/Log.pm
@@ -249,6 +249,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)}) {