allow apply to return > 1 object per collection member

[debbugs.git] / Debbugs / Collection / Bug.pm

diff --git a/Debbugs/Collection/Bug.pm b/Debbugs/Collection/Bug.pm
index 2a9bbe29e11792bb3dcb11ba1f8e947e17e3206a..63ce8095ead0e49b5c2b04f0e1d81d1992bd37c3 100644 (file)
--- a/Debbugs/Collection/Bug.pm
+++ b/Debbugs/Collection/Bug.pm
@@ -200,7 +200,7 @@ sub member_key {
 sub load_related_packages_and_versions {
     my $self = shift;
     my @related_packages_and_versions =
-        $self->map(sub {$_->related_packages_and_versions});
+        $self->apply(sub {$_->related_packages_and_versions});
     $self->package_collection->
         add_packages_and_versions(@related_packages_and_versions);
 }