From: Don Armstrong <don@donarmstrong.com>
Date: Fri, 8 Jun 2018 20:38:55 +0000 (-0700)
Subject: include affects in package loading
X-Git-Url: https://git.donarmstrong.com/?p=debbugs.git;a=commitdiff_plain;h=63ff49bfdec6dec00dc7e9304da1c993a367e595

include affects in package loading
---

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;
 }