develooper Front page | perl.cvs.parrot | Postings from December 2008

[svn:parrot] r34462 - branches/rvar/languages/perl6/src/parser

From:
pmichaud
Date:
December 27, 2008 17:39
Subject:
[svn:parrot] r34462 - branches/rvar/languages/perl6/src/parser
Message ID:
20081228013858.7E9FFCBA31@x12.develooper.com
Author: pmichaud
Date: Sat Dec 27 17:38:57 2008
New Revision: 34462

Modified:
   branches/rvar/languages/perl6/src/parser/actions.pm

Log:
[rakudo]:  Restore special variables ($_, $/, $_).


Modified: branches/rvar/languages/perl6/src/parser/actions.pm
==============================================================================
--- branches/rvar/languages/perl6/src/parser/actions.pm	(original)
+++ branches/rvar/languages/perl6/src/parser/actions.pm	Sat Dec 27 17:38:57 2008
@@ -1418,11 +1418,6 @@
 }
 
 
-method special_variable($/) {
-    make PAST::Var.new( :node($/), :name(~$/), :scope('lexical') );
-}
-
-
 method expect_term($/, $key) {
     my $past;
     if $key eq '*' {
@@ -2108,9 +2103,18 @@
             $past.viviself( container_type($sigil) );
         }
     }
+    elsif $key eq 'special_variable' {
+        $past := $( $<special_variable> );
+    }
     make $past;
 }
 
+
+method special_variable($/) {
+    make PAST::Var.new( :node($/), :name(~$/), :scope('lexical') );
+}
+
+
 method circumfix($/, $key) {
     my $past;
     if $key eq '( )' {



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