From: Don Armstrong <don@donarmstrong.com>
Date: Tue, 26 Jan 2010 23:25:39 +0000 (-0800)
Subject: properly handle source packages in get_versions
X-Git-Tag: release/2.6.0~428^2~11
X-Git-Url: https://git.donarmstrong.com/?p=debbugs.git;a=commitdiff_plain;h=086b8b1bfed8d222bb6fdbd022b39fcb75a47a0c

properly handle source packages in get_versions
---

diff --git a/Debbugs/Packages.pm b/Debbugs/Packages.pm
index 482938d..f43e8b5 100644
--- a/Debbugs/Packages.pm
+++ b/Debbugs/Packages.pm
@@ -444,6 +444,10 @@ sub get_versions{
      }
      my %versions;
      for my $package (make_list($param{package})) {
+	  my $source_only = 0;
+	  if ($package =~ s/^src://) {
+	       $source_only = 1;
+	  }
 	  my $version = $versions->{$package};
 	  next unless defined $version;
 	  for my $dist (make_list($param{dist})) {
@@ -451,7 +455,7 @@ sub get_versions{
 			     make_list($param{arch}):
 			     (grep {not $param{no_source_arch} or
 					$_ ne 'source'
-				    } keys %{$version->{$dist}})) {
+				    } $source_only?'source':keys %{$version->{$dist}})) {
 		    next unless defined $version->{$dist}{$arch};
 		    for my $ver (ref $version->{$dist}{$arch} ?
 				 keys %{$version->{$dist}{$arch}} :