From 0306a44481bd1bd567160f00285425789d050a69 Mon Sep 17 00:00:00 2001
From: doogie <>
Date: Thu, 22 Nov 2001 00:57:02 -0800
Subject: [PATCH] [project @ 2001-11-22 00:57:02 by doogie] When looking at the
 bugs for a source package, also include bugs filed on the source package, not
 just on the binaries from the source package.

---
 cgi/pkgreport.cgi | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/cgi/pkgreport.cgi b/cgi/pkgreport.cgi
index 18c72e3f..3fb8600c 100755
--- a/cgi/pkgreport.cgi
+++ b/cgi/pkgreport.cgi
@@ -78,8 +78,9 @@ if (defined $pkg) {
   @bugs = @{getbugs(sub {my %d=@_; return $pkg eq $d{"pkg"}}, 'package', $pkg)};
 } elsif (defined $src) {
   $tag = "source $src";
-  my %pkgsrc = %{getpkgsrc()};
-  @bugs = @{getbugs(sub {my %d=@_; return $pkg eq $d{"pkg"}}, 'package', getsrcpkgs($src))};
+  my @pkgs = getsrcpkgs($src);
+  push @pkgs, $src if ( !grep(/^\Q$src\E$/, @pkgs) );
+  @bugs = @{getbugs(sub {my %d=@_; return $pkg eq $d{"pkg"}}, 'package', @pkgs)};
 } elsif (defined $maint) {
   my %maintainers = %{getmaintainers()};
   $tag = "maintainer $maint";
-- 
2.39.5