handle missing <block> in routine_def

rakudo-p5 · Jun 4, 2013 · 53e3a12 · 53e3a12
1 parent 37adf8f
commit 53e3a12
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/lib/Perl5/Actions.nqp b/lib/Perl5/Actions.nqp
@@ -2139,6 +2139,9 @@ class Perl5::Actions is HLL::Actions does STDActions {
 
     method routine_def($/) {
         $V5DEBUG && say("routine_def($/)");
+        unless $<blockoid> {
+            return make QAST::Var.new( :name<Nil>, :scope<lexical>, :node($/) );
+        }
         my $block;
 
 #        if $<onlystar> {