[svn:parrot] r35233 - branches/rvar2/languages/perl6/src/parser

[pmichaud]

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.');