From: Don Armstrong Date: Thu, 8 Mar 2007 02:24:11 +0000 (-0800) Subject: fix bug in bug_presence function X-Git-Tag: release/2.6.0~583^2 X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=2049843f1b1c700202891c8251c84a33ee68a3a8;p=debbugs.git fix bug in bug_presence function --- diff --git a/Debbugs/Status.pm b/Debbugs/Status.pm index 565daeb8..d8afb573 100644 --- a/Debbugs/Status.pm +++ b/Debbugs/Status.pm @@ -737,7 +737,7 @@ sub get_bug_status { $status{"pending"} = 'fixed' if ($tags{fixed}); - my $presence = bug_presence(map{exists $param{$_}?($_,$param{$_}):()} + my $presence = bug_presence(map{(exists $param{$_})?($_,$param{$_}):()} qw(bug sourceversions arch dist version found fixed package) ); if (defined $presence) { @@ -838,21 +838,21 @@ sub bug_presence { else { @sourceversions = @{$param{sourceversions}}; } + my $maxbuggy = 'undef'; if (@sourceversions) { - my $maxbuggy = max_buggy(bug => $param{bug}, + $maxbuggy = max_buggy(bug => $param{bug}, sourceversions => \@sourceversions, found => $status{found_versions}, fixed => $status{fixed_versions}, package => $status{package}, version_cache => $version_cache, ); - return $maxbuggy; } if (length($status{done}) and (not @sourceversions or not @{$status{fixed_versions}})) { return 'fixed'; } - return undef; + return $maxbuggy; }