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

[Carl Mäsak]

# New Ticket Created by  "Carl Mäsak" 
# Please include the string:  [perl #67236]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=67236 >


<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?
<jnthn> rakudo: class A { has A @.as is rw }; my $x = A.new;
$x.as.push(A.new); say $x.as.perl
<p6eval> rakudo 6a4d66: OUTPUT«Type check failure in push [...]
<jnthn> rakudo: class A { has A @.as is rw }; my $x = A.new; say $x.as.of
<p6eval> rakudo 6a4d66: OUTPUT«Module()␤»
<jnthn> oh wtf
* masak submits that one too
<masak> rakudo: class A {}; class B { has A @.as }; B.new.as.push(A.new)
<p6eval> rakudo 6a4d66:  ( no output )
<masak> essential part of that last bug there.
<jnthn> Yes, I know.
<masak> it needs to be the same class.
<jnthn> It's when the type is the same as...right.
<jnthn> Because it looks up the type before the proto-object is installed.
<masak> ah! yes, I just realized that.
<masak> pipes sticking out.
<jnthn> Aye, an unfortunate consequence of the way thigns are
currently implemented.
<jnthn> I don't have a fast solution for that.