Prevent a class from inheriting from itself.

rakudo · May 13, 2011 · 9ab0356 · 9ab0356
1 parent adf72d8
commit 9ab0356
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/Perl6/Metamodel/MultipleInheritance.pm b/src/Perl6/Metamodel/MultipleInheritance.pm
@@ -7,6 +7,9 @@ role Perl6::Metamodel::MultipleInheritance {
         if self.is_composed($obj) {
             pir::die("Parents cannot be added to a class after it has been composed");
         }
+        if $parent =:= $obj {
+            pir::die("Class " ~ self.name($obj) ~ " cannot inherit from itself");
+        }
         for @!parents {
             if $_ =:= $parent {
                 pir::die("Package '" ~ self.name($obj) ~