[perl #113950] [BUG] 'next' or 'last' don't trigger LEAVE phaser in loop in Rakudo

[Will Coleda via RT]

On Mon Jul 02 07:02:11 2012, masak wrote:
> <masak> r: loop { last; LEAVE say "bye!" }; say "outside"
> <p6eval> rakudo 16db64: OUTPUT«outside␤»
> <masak> do we have this one on file?
> <masak> closest I find is
> https://rt.perl.org/rt3/Ticket/Display.html?id=113548
> * masak submits rakudobug
> <masak> r: for ^10 { next; LEAVE say "yay!" }; say "outside"
> <p6eval> rakudo 16db64: OUTPUT«outside␤»
> <masak> that, too.
> <masak> n: loop { last; LEAVE say "bye!" }; say "outside"
> <p6eval> niecza v19-7-g5e25209: OUTPUT«bye!␤outside␤»
> <masak> n: for ^10 { next; LEAVE say "yay!" }; say "outside"
> <p6eval> niecza v19-7-g5e25209:
> OUTPUT«yay!␤yay!␤yay!␤yay!␤yay!␤yay!␤yay!␤yay!␤yay!␤yay!␤outside␤»
> 
> Niecza has the behavior I'd expect from Rakudo.

Behavior has changed; we're half right:

20:02 < [Coke]> r: loop { last; LEAVE say "bye!" }; say "outside"
20:02 <+p6eval> rakudo 604986: OUTPUT«===SORRY!===␤Error while compiling block
                : Error while compiling op call: Error while compiling block :
                Error while compiling op bind: Error while compiling op while:
                Error while compiling block : Error while compiling op
                p6return: Operation 'p6return' requires 1 o…
20:03 < [Coke]> r: for ^10 { next; LEAVE say "yay!" }; say "outside"
20:03 <+p6eval> rakudo 604986:
OUTPUT«yay!␤yay!␤yay!␤yay!␤yay!␤yay!␤yay!␤yay!␤yay!␤yay!␤outside␤»


-- 
Will "Coke" Coleda