From 1fbaca61f2f551b5b2645ce2233a1d964bc93b30 Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Fri, 8 Jun 2018 13:34:27 -0700
Subject: [PATCH 1/1] Package member key is the fully-qualified name; fix error
 in get

---
 Debbugs/Collection.pm         | 3 ++-
 Debbugs/Collection/Package.pm | 2 +-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/Debbugs/Collection.pm b/Debbugs/Collection.pm
index cbfd56b..808d77f 100644
--- a/Debbugs/Collection.pm
+++ b/Debbugs/Collection.pm
@@ -197,7 +197,8 @@ sub add {
 
 sub get {
     my $self = shift;
-    return $self->_get_member($self->_get_member_hash(@_));
+    return map {$self->_get_member($_)}
+        $self->_get_member_hash(@_);
 }
 
 
diff --git a/Debbugs/Collection/Package.pm b/Debbugs/Collection/Package.pm
index a78d7b7..1675c49 100644
--- a/Debbugs/Collection/Package.pm
+++ b/Debbugs/Collection/Package.pm
@@ -182,7 +182,7 @@ sub add_packages_and_versions {
 # }
 
 sub member_key {
-    return $_[1]->name;
+    return $_[1]->qualified_name;
 }
 
 has 'correspondent_collection' =>
-- 
2.39.2