From mark@kli.org

 
 
 
 
  <clsn> perl6​: my $i=0; while $i < 6 { FIRST { say "Here";
  last }; say $i++ }

  <camelia> rakudo-moar 535d91​: OUTPUT«0␤1␤2␤3␤4␤5␤»

  <camelia> ..niecza v24-109-g48a8de3​:
  OUTPUT«�[31m===�[0mSORRY!�[31m===�[0m␤␤Action method
  statement_prefix​:FIRST not yet implemented at /tmp/tmpfile line
  1​:␤------> �[32mhile $i < 6 { FIRST { say "Here"; last
  }�[33m⏏�[31m; say $i++ }�[0m␤␤Unhandled exception​: Unable to resolve
  metho…»

  <camelia> ..rakudo-parrot 535d91, rakudo-jvm 535d91​:
  OUTPUT«Here␤0␤1␤2␤3␤4␤5␤»

  <masak> clsn​: it's another one of those "how does X interact
  with Y" things. phasers are full of them.

  <clsn> Wow, didn't expect moar to do different there.

  <Timbus> i guess you could always use the first part of a
  loop(;;) ;/

  <clsn> I'm not positive that the behavior is wrong or right
  there...

  <-- rindolf has quit (Quit​: Leaving)

  <masak> clsn​: looks like rakudo-parrot has it right.

  <masak> hm, wait.

  <clsn> Does the "last" not count there then?

  <masak> no, none of them are right.

  <masak> yes, it should, of course.

  <masak> clsn​: feel free to submit a separate rakudobug for
  that one. ;)

  <clsn> Heh. :)

  <Timbus> call it 'the last bug' and we can declare perl 6
  finished when it's closed

From @masak

<masak> <[Coke]> masak​: if none of them have RT #​121147 right, what's the right way to have it?
<masak> [Coke]​: sorry, left that out.
<masak> [Coke]​: "Here\n"
<masak> [Coke]​: with the rationale that FIRST runs before any iteration, the say gets printed, and then 'last' quits the loop.
<masak> [Coke]​: rakudo-moar seems to entirely ignore the FIRST. rakudo-parrot and rakudo-jvm run the FIRST, but ignore the 'last'.
* masak adds this to the ticket

The RT System itself - Status changed from 'new' to 'open'

From @jnthn

On Sun Feb 02 11​:20​:48 2014, mark@​kli.org wrote​:

<clsn> perl6​: my $i=0; while $i < 6 { FIRST { say "Here"; last }; say
$i++ }
<camelia> rakudo-moar 535d91​: OUTPUT«0␤1␤2␤3␤4␤5␤»
<camelia> ..niecza v24-109-g48a8de3​:
OUTPUT«�[31m===�[0mSORRY!�[31m===�[0m␤␤Action method
statement_prefix​:FIRST not
yet implemented at /tmp/tmpfile line 1​:␤------> �[32mhile $i < 6 {
FIRST { say
"Here"; last }�[33m⏏�[31m; say $i++ }�[0m␤␤Unhandled exception​: Unable
to
resolve metho…»
<camelia> ..rakudo-parrot 535d91, rakudo-jvm 535d91​:
OUTPUT«Here␤0␤1␤2␤3␤4␤5␤»
<masak> clsn​: it's another one of those "how does X interact with Y"
things.
phasers are full of them.
<clsn> Wow, didn't expect moar to do different there.
<Timbus> i guess you could always use the first part of a loop(;;) ;/
<clsn> I'm not positive that the behavior is wrong or right there...
<-- rindolf has quit (Quit​: Leaving)
<masak> clsn​: looks like rakudo-parrot has it right.
<masak> hm, wait.
<clsn> Does the "last" not count there then?
<masak> no, none of them are right.
<masak> yes, it should, of course.
<masak> clsn​: feel free to submit a separate rakudobug for that one.
;)
<clsn> Heh. :)
<Timbus> call it 'the last bug' and we can declare perl 6 finished
when it's
closed

Fixed now. Sadly there do remain 20 more things in the xmas bug list, but...close to last. ;-) Tests in S04-phasers/first.t.

@jnthn - Status changed from 'open' to 'resolved'