# 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.