use warnings;
use strict;
+# Sanitize environent for taint
+BEGIN{
+ delete @ENV{qw(IFS CDPATH ENV BASH_ENV)};
+}
+
+binmode(STDOUT,':encoding(UTF-8)');
use POSIX qw(strftime nice);
use Debbugs::Config qw(:globals :text :config);
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})];
}