$me = $1 if ($me =~ m/<(.*)>/);
push @pkgs, $p if ($me eq $maint);
}
- @bugs = @{getbugs(sub {my %d=@_; my $me;
+ if ($maint eq "") {
+ @bugs = @{getbugs(sub {my %d=@_; my $me;
+ ($me = $maintainers{$d{"pkg"}}||"") =~ s/\s*\(.*\)\s*//;
+ $me = $1 if ($me =~ m/<(.*)>/);
+ return $me eq $maint;
+ })};
+ } else {
+ @bugs = @{getbugs(sub {my %d=@_; my $me;
($me = $maintainers{$d{"pkg"}}||"") =~ s/\s*\(.*\)\s*//;
$me = $1 if ($me =~ m/<(.*)>/);
return $me eq $maint;
}, 'package', @pkgs)};
+ }
} elsif (defined $maintenc) {
my %maintainers = %{getmaintainers()};
$tag = "encoded maintainer $maintenc";