Forbid classes inheriting from themselves.

Raku · May 13, 2011 · ad31d07 · ad31d07
1 parent 509350b
commit ad31d07
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/how/NQPClassHOW.pm b/src/how/NQPClassHOW.pm
@@ -93,6 +93,9 @@ knowhow NQPClassHOW {
         if $!composed {
             pir::die("NQPClassHOW does not support adding parents after being composed.");
         }
+        if $obj =:= $parent {
+            pir::die("Class '$!name' cannot inherit from itself.");
+        }
         for @!parents {
             if $_ =:= $parent {
                 pir::die("Already have " ~ $parent ~ " as a parent class.");