[STD] =begin END not eating rest of file

git-svn-id: http://svn.pugscode.org/pugs@25660 c213334d-75ef-0310-aa23-eaa082d1ae64
perl6 · Mar 3, 2009 · 32736bc · 32736bc
1 parent 6a7daaf
commit 32736bc
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/STD.pm b/STD.pm
@@ -818,7 +818,7 @@ token pod_comment {
     | 'begin' \h+ <identifier> ::
         [
         ||  .*? "\n=" <.unsp>? 'end' \h+ $<identifier> » \N*          {*} #= tagged
-        ||  .*? { say "HERE" }                                                      {*} #= end
+        ||  .*                                                        {*} #= end
         ]
     | 'begin' » :: \h* [ $$ || '#' || <.panic: "Unrecognized token after =begin"> ]
         [ .*?  "\n=" <.unsp>? 'end' » \N* || <.panic: "=begin without =end"> ]   {*}       #= anon