From 1ec915da23056c296b3faa04a7207bcf20876326 Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Fri, 22 Jun 2007 00:01:49 +0100
Subject: [PATCH]  * Handle splitting on package1,package2 in
 Debbugs::Versions::max_buggy

---
 Debbugs/Status.pm | 26 ++++++++++++++------------
 1 file changed, 14 insertions(+), 12 deletions(-)

diff --git a/Debbugs/Status.pm b/Debbugs/Status.pm
index 55ed935..2dc7440 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;
-- 
2.39.2