From: Don Armstrong <don@donarmstrong.com>
Date: Fri, 8 Jun 2018 20:34:27 +0000 (-0700)
Subject: Package member key is the fully-qualified name; fix error in get
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=1fbaca61f2f551b5b2645ce2233a1d964bc93b30;p=debbugs.git

Package member key is the fully-qualified name; fix error in get
---

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' =>