if (m/^(\S+)\s+(\d+)\s+(\d+)\s+(\S+)\s+\[\s*([^]]*)\s*\]\s+(\w+)\s+(.*)$/) {
my %hash = (pkg => $1, bug => $2, status => $4,
submitter => $5, severity => $6, tags => $7);
- if ($bugfunc->(\%hash)) {
+ if ($bugfunc->(%hash)) {
push (@result, $2);
}
}
my @bugs;
if (defined $pkg) {
$tag = "package $pkg";
- @bugs = @{getbugs(sub {my %d=@{$_[0]}; return $pkg eq $d{"pkg"}}, 'package', $pkg)};
+ @bugs = @{getbugs(sub {my %d=@_; return $pkg eq $d{"pkg"}}, 'package', $pkg)};
} elsif (defined $maint) {
my %maintainers = %{getmaintainers()};
$tag = "maintainer $maint";
$me = $1 if ($me =~ m/<(.*)>/);
push @pkgs, $p if ($me eq $maint);
}
- @bugs = @{getbugs(sub {my %d=@{$_[0]}; my $me;
+ @bugs = @{getbugs(sub {my %d=@_}; my $me;
($me = $maintainers{$d{"pkg"}}||"") =~ s/\s*\(.*\)\s*//;
$me = $1 if ($me =~ m/<(.*)>/);
return $me eq $maint;