From @zhuomingliang

JimmyZ> nom​: if 42 -> *@​_ { say @​_.perl }
p6eval> nom 1f9310​: OUTPUT«Array.new()␤»

JimmyZ> niecza​: if 42, 44, 22 -> *@​a { say @​a.perl }
p6eval> niecza v12-10-ga8ad0e9​: OUTPUT«(42, 44, 22)␤»

JimmyZ>nom​: if 42, 44, 22 -> *@​a { say @​a.perl }
p6eval>nom 1f9310​: OUTPUT«Array.new()␤»

jnthn> JimmyZ​: oh, oddness...
jnthn> JimmyZ​: Anyway, I can probably fix it. Feel free to submit a ticket.

JimmyZ> nom​: while 42, 44, 22 -> *@​a { say @​a.perl; last }
p6eval> nom 70d715​: OUTPUT«Array.new()␤»
JimmyZ> niecza​: while 42, 44, 22 -> *@​a { say @​a.perl; last }
p6eval> niecza v12-11-g20a790d​: OUTPUT«(42, 44, 22)␤»

@coke - Status changed from 'new' to 'open'

From @usev6

This has not changed​:

$ perl6 -e 'if 42, 44, 22 -> *@​a { say @​a.perl }'
Array.new()

$ perl6 -e 'while 42, 44, 22 -> *@​a { say @​a.perl; last }'
Array.new()

From @awwaiid

Putting parens around the signature makes it work​:

$ perl6 -e 'while 42, 44, 22 -> (*@​a) { say @​a.perl; last }'
[42, 44, 22]

$ perl6 -e 'if 42, 44, 22 -> (*@​a) { say @​a.perl }'
[42, 44, 22]

I don't know if the parenthesis SHOULD be required or not.

From @zoffixznet

On Sat, 10 Dec 2011 18​:37​:03 -0800, jimmy.zhuo@​gmail.com wrote​:

JimmyZ> nom​: if 42 -> *@​_ { say @​_.perl }
p6eval> nom 1f9310​: OUTPUT«Array.new()␤»

JimmyZ> niecza​: if 42, 44, 22 -> *@​a { say @​a.perl }
p6eval> niecza v12-10-ga8ad0e9​: OUTPUT«(42, 44, 22)␤»

JimmyZ>nom​: if 42, 44, 22 -> *@​a { say @​a.perl }
p6eval>nom 1f9310​: OUTPUT«Array.new()␤»

jnthn> JimmyZ​: oh, oddness...
jnthn> JimmyZ​: Anyway, I can probably fix it. Feel free to submit a ticket.

JimmyZ> nom​: while 42, 44, 22 -> *@​a { say @​a.perl; last }
p6eval> nom 70d715​: OUTPUT«Array.new()␤»
JimmyZ> niecza​: while 42, 44, 22 -> *@​a { say @​a.perl; last }
p6eval> niecza v12-11-g20a790d​: OUTPUT«(42, 44, 22)␤»

Thank you for the report. This is now fixed.

Fix​: Raku/nqp@8e7201eb64
  rakudo/rakudo@dfb6d951d7
  rakudo/rakudo@ef1d22f4c1
Test​: Raku/roast@aa90737df1

On Mon, 11 Jan 2016 18​:43​:32 -0800, awwaiid wrote​:

Putting parens around the signature makes it work​:

$ perl6 -e 'while 42, 44, 22 -> (*@​a) { say @​a.perl; last }'
[42, 44, 22]

$ perl6 -e 'if 42, 44, 22 -> (*@​a) { say @​a.perl }'
[42, 44, 22]

I don't know if the parenthesis SHOULD be required or not.

No, with parentheses you're taking a single positional arg and then unpacking its Capture.

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