From 63ff49bfdec6dec00dc7e9304da1c993a367e595 Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Fri, 8 Jun 2018 13:38:55 -0700
Subject: [PATCH] include affects in package loading

---
 Debbugs/Bug.pm | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/Debbugs/Bug.pm b/Debbugs/Bug.pm
index 38ebbe7..bff73c7 100644
--- a/Debbugs/Bug.pm
+++ b/Debbugs/Bug.pm
@@ -663,6 +663,10 @@ sub related_packages_and_versions {
     if (length($self->status->{package}//'')) {
 	@packages = split /,/,$self->status->{package}//'';
     }
+    if (length($self->status->{affects}//'')) {
+	push @packages,
+            split /,/,$self->status->{affects}//'';
+    }
     my @versions =
         (@{$self->status->{found_versions}//[]},
          @{$self->status->{fixed_versions}//[]});
@@ -676,8 +680,12 @@ sub related_packages_and_versions {
         }
     }
     for my $pkg (@packages) {
-        push @return,
-            [$pkg,@unqualified_versions];
+        if (@unqualified_versions) {
+            push @return,
+                [$pkg,@unqualified_versions];
+        } else {
+           push @return,$pkg;
+        }
     }
     return @return;
 }
-- 
2.39.2