-#!/usr/bin/perl -wT
+#!/usr/bin/perl -T
# This script is part of debbugs, and is released
# under the terms of the GPL version 2, or any later
# version at your option.
my $bugs = Debbugs::Collection::Bug->
new(bugs => \@bugs,
@schema_arg,
- users => [map {Debbugs::User->new($_)} @users],
+ users => [map {my $u = Debbugs::User->new($_);
+ $u->has_bug_tags()?($u):()
+ } @users],
);
$bugs->load_related_packages_and_versions();