[perl #116314] [BUG] 'for' loops in phasers in 'for' loops don't run in Rakudo

[Carl Mäsak]

# New Ticket Created by  "Carl Mäsak" 
# Please include the string:  [perl #116314]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org:443/rt3/Ticket/Display.html?id=116314 >


<phenny> grondilu: 03 Jan 21:53Z <masak> tell grondilu also, I can't
reproduce the bug you seem to be compensating for in
http://rosettacode.org/mw/index.php?title=Average_loop_length&diff=149566&oldid=149562
-- old rakudo?
<grondilu> rn: for ^2 { FIRST { .say for <foo bar> }; .say }
<p6eval> ..rakudo a93058: OUTPUT«0␤1␤»
* masak submits rakudobug
<masak> grondilu++
<masak> I'm running 2012.11-95-g8a1836b locally, and it works there.
<masak> so it's a relatively new regression.
* masak was the one with the old rakudo, it turns out :)
<grondilu> :)
<masak> r: for ^2 { FIRST { say "hah!" }; .say }
<p6eval> rakudo a93058: OUTPUT«hah!␤0␤1␤»
<timotimo> "how to implement simple things into rakudo" :P
<masak> r: for ^2 { FIRST { .say for 4 }; .say }
<p6eval> rakudo a93058: OUTPUT«0␤1␤»
<masak> r: for ^2 { LAST { .say for 4 }; .say }
<p6eval> rakudo a93058: OUTPUT«0␤1␤»
<masak> r: for ^2 { LAST { say "hah!" }; .say }
<p6eval> rakudo a93058: OUTPUT«0␤1␤hah!␤»
<masak> r: for ^2 { ENTER { .say for 4 }; .say }
<p6eval> rakudo a93058: OUTPUT«0␤1␤»
<masak> r: for ^2 { LEAVE { .say for 4 }; .say }
<p6eval> rakudo a93058: OUTPUT«0␤1␤»

The expectation is that it shouldn't matter whether there is a 'for'
loop inside the phaser or not; it should still run.