On Mon Jun 16 07:26:32 2014, masak wrote:
> [...]
> * masak submits rakudobug
> <masak> r: say (gather for 1..3 { INIT take "OH HAI"; take $_ })
> <camelia> rakudo-{jvm,moar} 6dd2e8: ( no output )
> <camelia> ..rakudo-parrot 6dd2e8: OUTPUT«take without gather [...]»
> <masak> oh.
> <masak> Parrot may actually have a point.
>
> I think outputting nothing in this case (as Moar and JVM do) is a bug.
> At the very least the program should output «1 2 3», or fail with an
> error message similar to Parrot's on all backends.
The evaluation fails now with X::ControlFlow and Parrot's error message:
$ perl6-m -e 'say (gather for 1..3 { INIT take "OH HAI"; take $_ })'
take without gather
$ perl6-j -e 'say (gather for 1..3 { INIT take "OH HAI"; take $_ })'
take without gather
I added a test to S04-statements/gather.t with commit
https://rt.perl.org/Ticket/Display.html?id=122114
I'm closing this ticket as 'resolved'.
