RakuAST: fix empty =begin foo␤=end foo

The problem was caused by the = on the next line already having been eaten by doc-configuration.
rakudo · Apr 30, 2023 · e253ce4 · e253ce4
1 parent 38cdaf3
commit e253ce4
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 5 deletions.
diff --git a/src/Raku/Actions.nqp b/src/Raku/Actions.nqp
@@ -2738,7 +2738,7 @@ class Raku::Actions is HLL::Actions does Raku::CommonActions {
 
     method doc-block:sym<begin>($/) {
         if $*FROM-SEEN{$/.from}++ {
-            return
+            return;
         }
         my $SEEN := $*SEEN;
 
@@ -2766,7 +2766,7 @@ class Raku::Actions is HLL::Actions does Raku::CommonActions {
 
     method doc-block:sym<for>($/) {
         if $*FROM-SEEN{$/.from}++ {
-            return
+            return;
         }
 
         my $config := extract-config($/);
@@ -2783,7 +2783,7 @@ class Raku::Actions is HLL::Actions does Raku::CommonActions {
 
     method doc-block:sym<abbreviated>($/) {
         if $*FROM-SEEN{$/.from}++ {
-            return
+            return;
         }
 
         my $config := extract-config($/);

diff --git a/src/Raku/Grammar.nqp b/src/Raku/Grammar.nqp
@@ -3594,7 +3594,7 @@ if $*COMPILING_CORE_SETTING {
         $<type>=<.doc-identifier>
 
         # fetch any configuration
-        <doc-configuration($<spaces>)>
+        <doc-configuration($<spaces>)>*
 
         # should now be at end of line
         <.doc-newline>+
@@ -3685,7 +3685,7 @@ if $*COMPILING_CORE_SETTING {
     }
 
     token doc-configuration($spaces = '') {
-          [\n $spaces '=']? [\h+ <doc-colonpair>]*
+          [\n $spaces '=' \h+]? <doc-colonpair> [\h+ <doc-colonpair>]*
     }
 
     token doc-newline { \h* \n }