Update =begin/=end handling slightly (RT #65782).

rakudo · May 19, 2009 · 595d364 · 595d364
1 parent ac60b66
commit 595d364
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/parser/grammar.pg b/src/parser/grammar.pg
@@ -121,10 +121,12 @@ token afterws {
 token pod_comment {
     ^^ '=' <.unsp>?
     [
+    | 'begin' \h+ 'END' >> ::
+        [ .*? \n '=' <.unsp>? 'end' \h+ 'END' >> \N* || .* ]
     | 'begin' \h+ <identifier> ::
         [
         ||  .*? \n '=' <.unsp>? 'end' \h+ $<identifier> >> \N* {*} #= tagged
-        ||  .*                                                 {*} #= end
+        ||  <.panic: "=begin without matching =end">
         ]
     | 'begin' >> :: \h* 
         [ $$ || '#' || <.panic: "Unrecognized token after =begin"> ]