-#!/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.
undef $debbugs_dir;
}
}
-use if defined $debbugs_dir, lib => $debbugs_dir;
+use if defined $debbugs_dir, lib => $debbugs_dir.'/lib/';
binmode(STDOUT,':encoding(UTF-8)');
use POSIX qw(strftime nice);
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();