track when a record ends and begins

[debbugs.git] / Debbugs / Log.pm

diff --git a/Debbugs/Log.pm b/Debbugs/Log.pm
index 5a7306de38ecfd5ecee354e06961aad60610badd..e97bfac882602c64f3e4a10f29bacefaa99ab407 100644 (file)
--- 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)}) {