From 595d36425ae7787d4fb7b99708b8df20bdf51df5 Mon Sep 17 00:00:00 2001
From: pmichaud <pmichaud@pobox.com>
Date: Tue, 19 May 2009 14:56:32 -0500
Subject: [PATCH] Update =begin/=end handling slightly (RT #65782).

---
 src/parser/grammar.pg | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/parser/grammar.pg b/src/parser/grammar.pg
index 7f599755990..ed07b32bd84 100644
--- 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"> ]