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 '( )' {
