read => [qw(readbug read_bug lockreadbug)],
write => [qw(writebug makestatus unlockwritebug)],
versions => [qw(addfoundversions addfixedversions),
- qw(removefoundversions)
+ qw(removefoundversions removefixedversions)
],
hook => [qw(bughook bughook_archive)],
);
=cut
# This will eventually need to be fixed before we start using mod_perl
-my $version_cache = {};
+our $version_cache = {};
sub bug_archiveable{
my %param = validate_with(params => \@_,
spec => {bug => {type => SCALAR,
version_cache => $version_cache,
);
}
+ elsif (defined $param{dist}) {
+ return 'absent';
+ }
if (length($status{done}) and
(not @sourceversions or not @{$status{fixed_versions}})) {
return 'fixed';