usertags => \%ut,
);
+# shove in bugs which affect this package if there is a package or a
+# source given (by default), but no affects options given
+if (not exists $param{affects} and not exists $param{noaffects} and
+ (exists $param{source} or
+ exists $param{package})) {
+ push @bugs, get_bugs((map {exists $param{$_}?($_ =~ /^(?:package|source)$/?'affects':$_,$param{$_}):()}
+ grep {$_ ne 'newest'}
+ keys %package_search_keys, 'archive'),
+ usertags => \%ut,
+ );
+}
+
if (defined $param{version}) {
$title .= " at version $param{version}";
}
# option to pass to set_tag (we use a hashref here to make it
# more obvious what is happening)
my @tag_operations;
- my $alter_type = '=';
my @badtags;
for my $tag (@tags) {
if ($tag =~ /^[=+-]$/) {
elsif ($tag eq '+') {
push @tag_operations,
{tags => [],
- option => [add => 1]
+ option => [add => 1],
};
}
next;
}
if (not @tag_operations) {
@tag_operations = {tags => [],
- option => []
+ option => [add => 1],
};
}
push @{$tag_operations[-1]{tags}},$tag;