From @tadzik

S04 says​:

LEAVE {...} [executes] at every block exit time (even stack unwinds from
exceptions)

Running perl6 version 2013.05-15-gcd5ca7c built on parrot 5.2.0 revision
RELEASE_5_2_0​:

sub foo { LEAVE { say "OK" }; die "died" }; foo()
died

According to the spec, this should also say OK

From @usev6

The described problem (no 'OK' is printed) persists on Parrot but works fine on Moar and JVM​:

$ perl6-p -e 'sub foo { LEAVE { say "OK" }; die "died" }; foo()' 2>/dev/null
$ perl6-m -e 'sub foo { LEAVE { say "OK" }; die "died" }; foo()' 2>/dev/null
OK
$ perl6-j -e 'sub foo { LEAVE { say "OK" }; die "died" }; foo()' 2>/dev/null
OK

I added a test (skipped for Parrot) to S04-phasers/enter-leave.t with the following commit​: Raku/roast@6e02af8c84

@usev6 - Status changed from 'new' to 'open'

From @usev6

Since support for Parrot was suspended with Rakudo Star Release 2015.02, I'm closing this "parrot only" ticket.

I added the ticket to a list of closed ticket living in the Mu repository​: https://github.com/perl6/mu/blob/master/misc/rt.perl.org/tickets_closed_parrot_only.txt.

In case support for Parrot will be restored in some future release the listed tickets can be checked and re-opened as appropriate.

@usev6 - Status changed from 'open' to 'rejected'