X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=Debbugs%2FLog.pm;h=5a7306de38ecfd5ecee354e06961aad60610badd;hb=1a1fa6f0af2be9d4076d9aad5f5a84c5fb3d9a8a;hp=dce86d5c05a36d708ed22efe3c95cf4b062c7783;hpb=3ca3d92a6dd4a37cb69d801d80be95379a044d40;p=debbugs.git

diff --git a/Debbugs/Log.pm b/Debbugs/Log.pm
index dce86d5..5a7306d 100644
--- a/Debbugs/Log.pm
+++ b/Debbugs/Log.pm
@@ -16,7 +16,7 @@ use warnings;
 use strict;
 
 use vars qw($VERSION $DEBUG @EXPORT @EXPORT_OK %EXPORT_TAGS);
-use base qw(Exporter);
+use Exporter qw(import);
 
 BEGIN {
     $VERSION = 1.00;
@@ -289,6 +289,9 @@ sub read_record
 		$record->{recips} = [split /\04/, $_, -1];
 	    }
 	    $this->{state} = 'kill-body';
+        $record->{start} = $logfh->tell+2;
+        $record->{stop} = $logfh->tell+2;
+        $record->{inner_file} = $this->{inner_file};
 	} elsif ($this->{state} eq 'autocheck') {
 	    $record->{text} .= "$_\n" unless $this->{inner_file};
 	    next if !/^X-Debian-Bugs(-\w+)?: This is an autoforward from (\S+)/;