Fix bug where .^attributes could make multiple entries for an attribu…

…te in the result list.
rakudo · Aug 3, 2011 · 057f236 · 057f236
1 parent d097bdc
commit 057f236
Showing 1 changed file with 8 additions and 8 deletions.
diff --git a/src/Perl6/Metamodel/AttributeContainer.pm b/src/Perl6/Metamodel/AttributeContainer.pm
@@ -45,16 +45,16 @@ role Perl6::Metamodel::AttributeContainer {
 
     # Introspect attributes.
     method attributes($obj, :$local) {
-        # Always add local ones.
         my @attrs;
-        for @!attributes {
-            @attrs.push($_);
+
+        if $local {
+            for @!attributes {
+                @attrs.push($_);
+            }
         }
-
-        # Also may need ones from parents.
-        unless $local {
-            for self.parents($obj) {
-                for $_.HOW.attributes($_) {
+        else {
+            for self.mro($obj) {
+                for $_.HOW.attributes($_, :local(1)) {
                     @attrs.push($_);
                 }
             }