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

diff --git a/Debbugs/Collection.pm b/Debbugs/Collection.pm
index cbfd56b31eb8dbb283fdcefbabe1f5372c8e8e1a..808d77f278c1c648808bf342022763f51cacebd1 100644 (file)
--- 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 a78d7b75908aec7a29552b790b1bbe442243004f..1675c498e1a3df9ef62a23d5ebf9187d2abbefba 100644 (file)
--- 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' =>