X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=Debbugs%2FLog.pm;h=d824d9a996d1b3fdce8fae13954fb28d7614e55c;hb=1fbaca61f2f551b5b2645ce2233a1d964bc93b30;hp=aa55f950fb86ea94e5c94f67d4b4dce003cf11fb;hpb=47f117e683ebbb1f537b7281b1983a3844d2d3f7;p=debbugs.git

diff --git a/Debbugs/Log.pm b/Debbugs/Log.pm
index aa55f95..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)}) {
@@ -512,7 +513,6 @@ sub record_regex {
     } else {
         my @result = $record->{text} =~ m/$regex/;
         return @result;
-        return $record->{text};
     }
 }
 
@@ -525,3 +525,8 @@ simply a means for extracting and rewriting raw records.
 =cut
 
 1;
+
+# Local Variables:
+# indent-tabs-mode: nil
+# cperl-indent-level: 4
+# End: