[perl #122325] [parrot] `last` returns something Mu-ish

[via RT]

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


>From S04-exceptions/control_across_runloop.t

{
    sub foo($x = last) { $x }

    my $i = 0;
    for 1,2,3 { $i++; foo(); }

    is $i, 1, 'control operator last can be used in an inferior context';
}

This fails on parrot only. It looks like as if it throws *before* assigning to 
$x on other backends, but not on parrot. So perhaps this is an issue in the 
binder.