From: Don Armstrong <don@donarmstrong.com>
Date: Sat, 29 Jun 2019 23:44:46 +0000 (-0700)
Subject: handle source/package being undef in Debbugs::Collection::Bug
X-Git-Url: https://git.donarmstrong.com/?p=debbugs.git;a=commitdiff_plain;h=264a60d4d47e1cdaafc4462466c357710d5cb1bd

handle source/package being undef in Debbugs::Collection::Bug
---

diff --git a/Debbugs/Collection/Bug.pm b/Debbugs/Collection/Bug.pm
index 6f4033a..2a9bbe2 100644
--- a/Debbugs/Collection/Bug.pm
+++ b/Debbugs/Collection/Bug.pm
@@ -141,8 +141,12 @@ sub _member_constructor {
         # preload as many of the packages as we need
         my %packages;
         while (my ($bug, $status) = each %{$statuses}) {
-            $packages{$_} = 1 for split /,/, $status->{package};
-            $packages{$_} = 1 for split /,/, $status->{source};
+            if (defined $status->{package}) {
+                $packages{$_} = 1 for split /,/, $status->{package};
+            }
+            if (defined $status->{source}) {
+                $packages{$_} = 1 for split /,/, $status->{source};
+            }
         }
         $self->package_collection->universe->add_by_key(keys %packages);
         while (my ($bug, $status) = each %{$statuses}) {