From: Don Armstrong <don@donarmstrong.com>
Date: Tue, 2 Dec 2008 16:37:03 +0000 (-0800)
Subject: support selecting src:sourcepackage packages in Debbugs::Bugs
X-Git-Tag: release/2.6.0~467^2~10
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=d1c9e4df65e46524673d8ddcbab1b687fb1db78b;p=debbugs.git

support selecting src:sourcepackage packages in Debbugs::Bugs
---

diff --git a/Debbugs/Bugs.pm b/Debbugs/Bugs.pm
index dfcb0c5..f7a6fbb 100644
--- 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}) {