support undef

rakudo-p5 · Apr 12, 2013 · 09e6da4 · 09e6da4
1 parent 2d7dcbb
commit 09e6da4
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 2 deletions.
diff --git a/lib/Perl6/P5Actions.pm b/lib/Perl6/P5Actions.pm
@@ -5095,6 +5095,13 @@ class Perl6::P5Actions is HLL::Actions does STDActions {
         make QAST::Op.new(:node($/), :op<call>, $metapast, $args);
     }
 
+    method term:sym<undef>($/) {
+        $*W.get_env('V5DEBUG') && say("term:sym<undef>($/)");
+        my $mu := QAST::WVal.new( :value($*W.find_symbol(['Mu'])) );
+        make $<EXPR>    ?? QAST::Op.new( :op('p6store'), $<EXPR>[0].ast, $mu )
+                        !! $mu
+    }
+
     method term:sym<filetest>($/) {
         $*W.get_env('V5DEBUG') && say("term:sym<filetest>($/)");
         make QAST::Op.new(

diff --git a/lib/Perl6/P5Grammar.pm b/lib/Perl6/P5Grammar.pm
@@ -3480,8 +3480,8 @@ grammar Perl6::P5Grammar is HLL::Grammar does STD5 {
 #    token term:sym<ucfirst>
 #        { <sym> » <?before \s*> <.ws> <EXPR('q=')>? }
 
-#    token term:sym<undef>
-#        { <sym> » <?before \s*> <.ws> <EXPR('q=')>? }
+    token term:sym<undef>
+        { <sym> » <?before \s*> <.ws> <EXPR('q=')>? }
 
 #    token term:sym<untie>
 #        { <sym> » <?before \s*> <.ws> <EXPR('q=')>? }