On Sat Nov 08 00:54:52 2008, ihrd wrote:
>
> sub foo (@a) { 1.say for @a }
> foo((1,2,3,4));       # only one 1
> foo([1,2,3,4]);       # only one 1
> foo( my @a = 1,2,3 ); # only one 1

Now fixed as of r35392:

  $ ./parrot perl6.pbc
  > sub foo(@a) { 1.say for @a }
  > foo((1,2,3,4));
  1
  1
  1
  1
  > foo([1,2,3,4]);
  1
  1
  1
  1
  > foo( my @a = 1,2,3 );
  1
  1
  1
  >

Tests already exist in the suite, so closing ticket.  Thanks!

Pm

Reply via email to