[perl #95500] [BUG] Subtype based on any(@array) always matches in Rakudo

[Carl Mäsak]

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


<masak> I found a bug. :)
<masak> rakudo: subset Foo of Str where any(<foo bar>); for <foo OH
NOES> { when Foo { say "$_ is a Foo" } } # this is fine
<p6eval> rakudo 922500: OUTPUT«foo is a Foo␤»
<masak> rakudo: my @strings = <foo bar>; subset Foo of Str where
any(@strings); for <foo OH NOES> { when Foo { say "$_ is a Foo" } } #
OH NOES
<p6eval> rakudo 922500: OUTPUT«foo is a Foo␤OH is a Foo␤NOES is a Foo␤»
* masak submits rakudobug
<masak> rakudo: my @strings = <foo bar>; subset Foo of Str where { say
@strings.perl; $_ ~~ any(@strings) }; for <foo OH NOES> { when Foo {
say "$_ is a Foo" } }
<p6eval> rakudo 922500: OUTPUT«Null PMC access in find_method('perl') [...]
<masak> ah; it's the ol' "scope has wrong outer" bug again.
<masak> I'll submit it anyway because the use case might be worth
having a test for. someone who finds the old ticket, if any, is free
to merge.