[perl #130773] [BUG] Bogus "Useless use" warning for WhateverCode in EVAL

[via RT]

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


EVAL is usually happy to return the result of its expression without warnings:

    ➜  say EVAL '1+1';
    2

    ➜  say EVAL '({ $^a + $^b })'
    -> $a, $b { #`(Block|56854080) ... }

But when the expression is a WhateverCode, it prints a "Useless use
[...] in sink context" warning, which is bogus because the value is in
fact returned and not sunk:

    ➜  say EVAL '*+*';
    WARNINGS for /home/sam/EVAL_0:
    Useless use of "+" in expression "*+*" in sink context (line 1)
    { ... }