# New Ticket Created by Moritz Lenz
# Please include the string: [perl #121530]
# in the subject line of all future correspondence about this issue.
# <URL: https://rt.perl.org/Ticket/Display.html?id=121530 >
S04-phasers/enter-leave.t has this test:
my $str;
try {
LEAVE { $str ~= '1' }
LEAVE { $str ~= '2'; die 'foo' }
}
is $str, '21', 'die doesn\'t abort LEAVE queue';
which passes on parrot, but fails on the JVM and MoarVM, with
not ok 19 - die doesn't abort LEAVE queue
# got: '2'
# expected: '21'
