Parse empty lines in a =begin code block

rakudo · Feb 19, 2014 · f3b5470 · f3b5470
1 parent e2b8379
commit f3b5470
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 5 deletions.
diff --git a/src/Perl6/Actions.nqp b/src/Perl6/Actions.nqp
@@ -582,11 +582,12 @@ class Perl6::Actions is HLL::Actions does STDActions {
     method delimited_code_content($/) {
         if $<pod_string> {
             my @t := Perl6::Pod::merge_twines($<pod_string>);
-            @t.push($<delimited_code_content>.ast);
+            @t.push($<delimited_code_content>.ast)
+                if $<delimited_code_content><pod_string>;
             make @t;
-        }
-        else {
-            make "";
+        } elsif $<delimited_code_content> {
+            # Empty line
+            make $*W.add_constant('Str', 'str', '').compile_time_value;
         }
     }
 

diff --git a/src/Perl6/Grammar.nqp b/src/Perl6/Grammar.nqp
@@ -703,7 +703,7 @@ grammar Perl6::Grammar is HLL::Grammar does STD {
         ^^ $spaces
         [
         || '=end' \h+ 'code' <pod_newline>
-        || <pod_string>**1 <pod_newline>
+        || <pod_string>**0..1 <pod_newline>
            <delimited_code_content($spaces)>
         ]
     }