Re: [perl #112654] [BUG] Simple gather loop flusters Rakudo

[Patrick R. Michaud]

On Fri, Apr 27, 2012 at 07:59:22PM -0700, Solomon Foster wrote:
> colomon: r: sub mcf() { gather loop { take 1; last; }; }; say mcf().perl
> p6eval: rakudo dda5b0: OUTPUT«Method 'eager' not found for invocant of
> class 'Integer'␤  in sub coro at src/gen/CORE.setting:4926␤  in method
> reify at src/gen/CORE.setting:4907␤  in method reify at
> src/gen/CORE.setting:4678␤  in method gimme at
> src/gen/CORE.setting:5065␤  in method perl at src/…


The problem was actually with the 'loop' statement, not the 'gather';
the 'loop' statement was returning a Parrot Integer 1.  Notably
the gather statement works fine if 'loop' is replaced with 'while 1'.

Now fixed in a25e7d1, needs spectests to close ticket.

Pm