my $VERSION = __populate_version(pop);
my ($self,$num) = @_;
my $newest_bug = Debbugs::bugs::newest_bug();
- @bugs = ($newest_bug - $num + 1) .. $newest_bug;
+ return [$newest_bug - $num + 1) .. $newest_bug];
}
next if defined $msg_id and $msg_id =~ /handler\..+\.ack(?:info)?\@/;
my $message = parse($record->{text});
my ($header,$body) = map {join("\n",make_list($_))}
- values %{$message};
- push @messages,{html => $record->{html},
- header => $header,
+ @{$message}{qw(header body)};
+ push @messages,{header => $header,
body => $body,
attachments => [],
msg_num => $current_msg,
$ordering = "raw" if $raw_sort;
$ordering = 'age' if $age_sort;
}
-my ($bug_order) = $ordering =~ /(age(?:rev)?)/;
+our ($bug_order) = $ordering =~ /(age(?:rev)?)/;
$bug_order = '' if not defined $bug_order;
my $bug_rev = ($param{'bug-rev'} || "no") eq "yes";