From: Don Armstrong <don@donarmstrong.com>
Date: Thu, 21 Jun 2007 23:01:49 +0000 (+0100)
Subject:  * Handle splitting on package1,package2 in Debbugs::Versions::max_buggy
X-Git-Tag: release/2.6.0~538^2~4
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=1ec915da23056c296b3faa04a7207bcf20876326;p=debbugs.git

 * Handle splitting on package1,package2 in Debbugs::Versions::max_buggy
---

diff --git a/Debbugs/Status.pm b/Debbugs/Status.pm
index 55ed9354..2dc74402 100644
--- a/Debbugs/Status.pm
+++ b/Debbugs/Status.pm
@@ -1005,18 +1005,20 @@ sub max_buggy{
      # Resolve bugginess states (we might be looking at multiple
      # architectures, say). Found wins, then fixed, then absent.
      my $maxbuggy = 'absent';
-     for my $version (@{$param{sourceversions}}) {
-	  my $buggy = buggy(bug => $param{bug},
-			    version => $version,
-			    found => $param{found},
-			    fixed => $param{fixed},
-			    version_cache => $param{version_cache},
-			    package => $param{package},
-			   );
-	  if ($buggy eq 'found') {
-	       return 'found';
-	  } elsif ($buggy eq 'fixed') {
-	       $maxbuggy = 'fixed';
+     for my $package (split /\s*,\s*/, $param{package}) {
+	  for my $version (@{$param{sourceversions}}) {
+	       my $buggy = buggy(bug => $param{bug},
+				 version => $version,
+				 found => $param{found},
+				 fixed => $param{fixed},
+				 version_cache => $param{version_cache},
+				 package => $package,
+				);
+	       if ($buggy eq 'found') {
+		    return 'found';
+	       } elsif ($buggy eq 'fixed') {
+		    $maxbuggy = 'fixed';
+	       }
 	  }
      }
      return $maxbuggy;