}
while(<I>) {
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->(pkg => $1, bug => $2, status => $4,
+ submitter => $5, severity => $6, tags => $7))
+ {
push (@result, $2);
}
}
$me = $1 if ($me =~ m/<(.*)>/);
push @pkgs, $p if ($me eq $maint);
}
- @bugs = @{getbugs(sub {my %d=@_}; 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;