develooper Front page | perl.cvs.parrot | Postings from January 2009

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

From:
pmichaud
Date:
January 8, 2009 16:43
Subject:
[svn:parrot] r35233 - branches/rvar2/languages/perl6/src/parser
Message ID:
20090109004307.C95D7CB9F9@x12.develooper.com
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.');



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About