Author: pmichaud Date: Thu Jan 8 16:43:07 2009 New Revision: 35233 Modified: branches/rvar2/languages/perl6/src/parser/actions.pm Log: [rakudo]: handle &-sigil in parameters Modified: branches/rvar2/languages/perl6/src/parser/actions.pm ============================================================================== --- branches/rvar2/languages/perl6/src/parser/actions.pm (original) +++ branches/rvar2/languages/perl6/src/parser/actions.pm Thu Jan 8 16:43:07 2009 @@ -1151,10 +1151,12 @@ method param_var($/) { - my $name := ~$/; + my $sigil := ~$<sigil>; my $twigil := ~$<twigil>[0]; + if $sigil eq '&' { $sigil := ''; } + my $name := $sigil ~ $twigil ~ ~$<identifier>; if $twigil eq '.' { - $name := ~$<sigil> ~ '!' ~ $<identifier>; + $name := $sigil ~ '!' ~ $<identifier>; } elsif $twigil && $twigil ne '!' { $/.panic('Invalid twigil used in signature parameter.');