[perl #118387] [BUG] LEAVE doesn't trigger when an exception is thrown

[via RT]

# New Ticket Created by  Tadeusz Sośnierz 
# Please include the string:  [perl #118387]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org:443/rt3/Ticket/Display.html?id=118387 >


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