Avoid tripping up over containers.

rakudo · May 23, 2011 · 45cfbca · 45cfbca
1 parent 7ab3578
commit 45cfbca
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/Perl6/Metamodel/MultipleInheritance.pm b/src/Perl6/Metamodel/MultipleInheritance.pm
@@ -4,6 +4,9 @@ role Perl6::Metamodel::MultipleInheritance {
 
     # Adds a parent.
     method add_parent($obj, $parent) {
+        $obj := pir::descalarref__PP($obj);
+        $parent := pir::descalarref__PP($parent);
+
         if self.is_composed($obj) {
             pir::die("Parents cannot be added to a class after it has been composed");
         }