10 This tests a bug sent via RT #39001
20 Foo->meta->superclasses('Foo');
21 }, qr/^Recursive inheritance detected/, "error occurs when extending oneself" );
28 # reset @ISA, so that calling methods like ->isa won't die (->meta does this
29 # if DEBUG_NO_META is set)
33 Foo->meta->superclasses('Bar');
34 }, undef, "regular subclass" );
37 Bar->meta->superclasses('Foo');
38 }, qr/^Recursive inheritance detected/, "error occurs when Bar extends Foo, when Foo is a Bar" );