On Fri Mar 28 12:59:42 2014, moritz wrote:
> 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'Fixed, test unfudged. Also added a mechanism for conveying multiple exceptions if multiple LEAVEs throw and tested that too.
