[perl #131502] [BUG] Incorrect useless use warning when Junction is passed as arg to Callable

[via RT]

# New Ticket Created by  Zoffix Znet 
# Please include the string:  [perl #131502]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org/Ticket/Display.html?id=131502 >



The warning lies; this use isn't useless:

    <Zoffix__> m: -> +@foo { say @foo.head.(41) }(* == 42)
    <camelia> rakudo-moar 64e898: OUTPUT: «WARNINGS for <tmp>:␤Useless use of 
"==" in expression "* == 42" in sink context (line 1)␤False␤»
    <Zoffix__> m: -> +@foo { say @foo.head.(42) }(* == 42)
    <camelia> rakudo-moar 64e898: OUTPUT: «WARNINGS for <tmp>:␤Useless use of 
"==" in expression "* == 42" in sink context (line 1)␤True␤»


Appears to only happen when the Callable is invoked right away; this version is 
fine:

    <Zoffix__> m: sub foo (+@foo) { say @foo.head.(42) };  foo(* == 42)
    <camelia> rakudo-moar 64e898: OUTPUT: «True␤»