-#!/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.
if ($INC[0] !~ /^\//) {
undef $debbugs_dir;
}
+ if (defined $debbugs_dir) {
+ unshift @INC, $debbugs_dir.'/lib/';
+ }
}
-use if defined $debbugs_dir, lib => $debbugs_dir;
+
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();