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

[Carl Mäsak]

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


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␤»