for my $exclude (make_list($param{exclude})) {
next unless defined $exclude;
my ($key,$value) = split /\s*:\s*/,$exclude,2;
- next unless defined $value;
+ unless (defined $value) {
+ $key = 'tags';
+ $value = $exclude;
+ }
push @{$exclude{$key}}, split /\s*,\s*/, $value;
}