[perl #62902] Rakudo thinks that a proto-object in an attribute isn't ===-equal to its class

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

On Thu Jan 29 05:13:48 2009, masak wrote:
> A protoobject in a normal lexical variable:
> 
> <masak> rakudo: class A {}; my A $a; say $a === A # works
> <p6eval> rakudo 36143: OUTPUT«1␤»
> 
> A protoobject in an object attribute:
> 
> <masak> rakudo: class A {}; class D { has A $!a; method foo { say $!a
> === A } }; D.new.foo # fails
> <p6eval> rakudo 36143: OUTPUT«0␤»

Fixed in git d912db6 and added a test to S12-attributes/instance.t.

Thanks,

Jonathan