From 13d48d799e505b3614549e4d0e7b2389f2db86cd Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Michael=20Teichgr=C3=A4ber?= <mt@ib.wmipf.de>
Date: Mon, 13 Dec 2010 18:02:24 +0100
Subject: [PATCH] parser.leg: HtmlBlock: do a lookahead for `<'

---
 parser.leg | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/parser.leg b/parser.leg
index 54a6b06..21a6d85 100644
--- a/parser.leg
+++ b/parser.leg
@@ -375,7 +375,7 @@ HtmlBlockInTags = HtmlBlockOpenAddress (HtmlBlockInTags | !HtmlBlockCloseAddress
                 | HtmlBlockOpenTr (HtmlBlockInTags | !HtmlBlockCloseTr .)* HtmlBlockCloseTr
                 | HtmlBlockOpenScript (HtmlBlockInTags | !HtmlBlockCloseScript .)* HtmlBlockCloseScript
 
-HtmlBlock = < ( HtmlBlockInTags | HtmlComment | HtmlBlockSelfClosing ) >
+HtmlBlock = &'<' < ( HtmlBlockInTags | HtmlComment | HtmlBlockSelfClosing ) >
             BlankLine+
             {   if p.extension.FilterHTML {
                     $$ = mk_list(LIST, nil)