* Handle bugs assigned to multiple packages correctly

diff --git a/Debbugs/Status.pm b/Debbugs/Status.pm
index 74946938db4c4ea2be5dafeff08d89c32e4650be..6911c32a273193fc145b06f0ce5ac1a2e671e9f7 100644 (file)
--- a/Debbugs/Status.pm
+++ b/Debbugs/Status.pm
@@ -908,23 +908,27 @@ sub bug_presence {
          my %sourceversions;
          if (defined $param{version}) {
               foreach my $arch (make_list($param{arch})) {
-                   my @temp = makesourceversions($status{package},
-                                                 $arch,
-                                                 make_list($param{version})
-                                                );
-                   @sourceversions{@temp} = (1) x @temp;
+                   for my $package (split /\s*,\s*/, $status{package}) {
+                        my @temp = makesourceversions($package,
+                                                      $arch,
+                                                      make_list($param{version})
+                                                     );
+                        @sourceversions{@temp} = (1) x @temp;
+                   }
               }
          } elsif (defined $param{dist}) {
               foreach my $arch (make_list($param{arch})) {
                    my @versions;
-                   foreach my $dist (make_list($param{dist})) {
-                        push @versions, getversions($status{package}, $dist, $arch);
+                   for my $package (split /\s*,\s*/, $status{package}) {
+                        foreach my $dist (make_list($param{dist})) {
+                             push @versions, getversions($package, $dist, $arch);
+                        }
+                        my @temp = makesourceversions($package,
+                                                      $arch,
+                                                      @versions
+                                                     );
+                        @sourceversions{@temp} = (1) x @temp;
                    }
-                   my @temp = makesourceversions($status{package},
-                                                 $arch,
-                                                 @versions
-                                                );
-                   @sourceversions{@temp} = (1) x @temp;
               }
          }