This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[perl #94306] Do not skip first elem of linear isa
authorFather Chrysostomos <sprout@cpan.org>
Tue, 11 Oct 2011 06:31:55 +0000 (23:31 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Tue, 11 Oct 2011 06:42:18 +0000 (23:42 -0700)
commit02cab6748c4f3e4cc55324283a910fa275726a56
treee397af825c9eb1c24acc381e4ca7893bf505dc9e
parentc145ee241a3cd455c002d4bcfab1e17ba1163c2c
[perl #94306] Do not skip first elem of linear isa

Perl has assumed up till now that the first element of an isa linear-
isation is the name of the class itself.  That is true for dfs and c3,
but not requiring that makes it easier for plugin authors.

Since various parts of the mro code make that assumption, this commit
copies the AV returned by mro_alg.resolve to a new one beginning with
the class’s own name, if the original AV did not include it.
MANIFEST
ext/XS-APItest/APItest.xs
ext/XS-APItest/t/mro.t [new file with mode: 0644]
mro.c