support selecting src:sourcepackage packages in Debbugs::Bugs

diff --git a/Debbugs/Bugs.pm b/Debbugs/Bugs.pm
index dfcb0c52ba805383593e00335ce79269cf590248..f7a6fbb52f1b7870423bab84e25f02ada6ddb5ec 100644 (file)
--- a/Debbugs/Bugs.pm
+++ b/Debbugs/Bugs.pm
@@ -711,10 +711,14 @@ sub __handle_pkg_src_and_maint{
          # We only want to increment the number of keys if there is
          # something to match
          my $key_inc = 0;
-         for my $package ((map { getsrcpkgs($_)} make_list($param{src})),make_list($param{src})) {
+         for my $package ((map { getsrcpkgs($_)} make_list($param{src}))) {
               $packages{$package}++;
               $key_inc=1;
          }
+         for my $package (make_list($param{src})) {
+              $packages{"src:$package"}++;
+              $key_inc=1;
+         }
          $package_keys += $key_inc;
      }
      if (exists $param{maint}) {