[perl #72048] [BUG] Negative smartmatching against a role always returns a true result in Rakudo

[Carl Mäsak]

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


This be Rakudo db84bc, running on Parrot r43174.

$ perl6 -e 'class A {}; say A.new ~~ A'
1

$ perl6 -e 'class A {}; say A.new !~~ A'
0

$ perl6 -e 'role A {}; class B does A {}; say B.new ~~ A'
1

$ perl6 -e 'role A {}; class B does A {}; say B.new !~~ A'
1