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

diff --git a/Debbugs/Collection/Bug.pm b/Debbugs/Collection/Bug.pm
index 6f4033ab556abf11d778a3f4ff6e82d5263f7b49..2a9bbe29e11792bb3dcb11ba1f8e947e17e3206a 100644 (file)
--- 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}) {