From @masak

<masak> perl6​: my @​a = 1..8; sub foo(@​a) { say +@​a; bar(@​a) }; sub
bar(@​a) { say +@​a }; foo(@​a)
<p6eval> rakudo 35345​: OUTPUT«8␤1␤»
<p6eval> ..pugs​: OUTPUT«8␤8␤»
<p6eval> ..elf 24854​: OUTPUT«1␤1␤»
* masak submits rakudobug

From @pmichaud

On Sat Jan 10 10​:14​:44 2009, masak wrote​:

<masak> perl6​: my @​a = 1..8; sub foo(@​a) { say +@​a; bar(@​a) }; sub
bar(@​a) { say +@​a }; foo(@​a)
<p6eval> rakudo 35345​: OUTPUT«8␤1␤»
<p6eval> ..pugs​: OUTPUT«8␤8␤»
<p6eval> ..elf 24854​: OUTPUT«1␤1␤»
* masak submits rakudobug

Now fixed in r35392​:

  $ ./parrot perl6.pbc
  > my @​a = 1..8; sub foo(@​a) { say +@​a; bar(@​a) }; sub bar(@​a) { say
+@​a }; foo(@​a);
  8
  8

Assigning ticket to moritz for test suite verification.

Thanks!

Pm

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

From @moritz

On Sat Jan 10 23​:31​:16 2009, pmichaud wrote​:

On Sat Jan 10 10​:14​:44 2009, masak wrote​:

<masak> perl6​: my @​a = 1..8; sub foo(@​a) { say +@​a; bar(@​a) }; sub
bar(@​a) { say +@​a }; foo(@​a)
<p6eval> rakudo 35345​: OUTPUT«8␤1␤»
<p6eval> ..pugs​: OUTPUT«8␤8␤»
<p6eval> ..elf 24854​: OUTPUT«1␤1␤»
* masak submits rakudobug

Now fixed in r35392​:

$ ./parrot perl6.pbc

my @​a = 1..8; sub foo(@​a) { say +@​a; bar(@​a) }; sub bar(@​a) { say
+@​a }; foo(@​a);
8
8

Assigning ticket to moritz for test suite verification.

Thanks!

Pm

Tested now in t/spec/S06-signature/passing-arrays.t.

Cheers,
Moritz

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