use warnings;
use strict;
+# Sanitize environent for taint
+BEGIN{
+ delete @ENV{qw(IFS CDPATH ENV BASH_ENV)};
+}
+
+# STDOUT should be in utf8 mode
+binmode(STDOUT,':utf8');
+
use POSIX qw(strftime nice);
use Debbugs::Config qw(:globals :text :config);
qw(bug-rev pend-rev sev-rev),
qw(maxdays mindays version),
qw(data which dist newest),
+ qw(noaffects),
],
default => $default_params,
);
for my $incexc (qw(include exclude)) {
next unless exists $param{$incexc};
# normalize tag to tags
- $param{$incexc} = [map {s/^tag:/tags:/} grep /\S\:\S/, make_list($param{$incexc})];
+ $param{$incexc} = [map {s/^tag:/tags:/; $_} grep /\S\:\S/, make_list($param{$incexc})];
}
for my $key (keys %package_search_keys) {
next unless exists $param{key};
for my $incexc (qw(include exclude)) {
next unless exists $param{$incexc};
# normalize tag to tags
- $param{$incexc} = [map {s/^tag:/tags:/} make_list($param{$incexc})];
+ $param{$incexc} = [map {s/^tag:/tags:/; $_} make_list($param{$incexc})];
}