[perl #67236] [BUG] can't push to an attribute array typed with the class it's in in Rakudo

[jn...@jnthn.net via RT]

On Sun Jul 05 04:25:00 2009, masak wrote:
> <masak> next one :)
> <jnthn> rakudo: my $a = undef; say $a.PARROT; say undef.PARROT;
> <p6eval> rakudo 6a4d66: OUTPUT«Failure␤Failure␤»
> <masak> rakudo: class A { has A @.as is rw }; my $x = A.new; $x.as[0]
> = A.new; say $x.as.perl
> <p6eval> rakudo 6a4d66: OUTPUT«[A.new()]␤»
> <masak> this works fine.
> <masak> rakudo: class A { has A @.as is rw }; my $x = A.new;
> $x.as.push: A.new; say $x.as.perl
> <masak> this doesn't.
> <p6eval> rakudo 6a4d66: OUTPUT«Type check failure in push [...]
> <masak> bug, right?

Bug fixed as a side-effect of various refactors committed in git
527cb8f, plus tests unfudged.

Thanks,

Jonathan