[GB.MARKDOWN]

* BUG: Fix markup mismatch detection.


git-svn-id: svn://localhost/gambas/trunk@6172 867c0c6c-44f3-4631-809d-bfa615b0a4ec
This commit is contained in:
Benoît Minisini 2014-02-22 00:42:03 +00:00
parent c802ae2ba8
commit 83d7271afc

View file

@ -675,7 +675,7 @@ ENTER_MARKUP:
If Not ["img", "hr", "br"].Exist(sPattern) Then If Not ["img", "hr", "br"].Exist(sPattern) Then
If $aMarkup.Count = 0 Then If $aMarkup.Count = 0 Then
Error.Raise("Mismatched markup: </" & sPattern & ">") Error.Raise("Mismatched markup: </" & sPattern & ">")
Else If LCase($aMarkup[$aMarkup.Max]) <> LCase(Mid$(sPattern, 2)) Then Else If LCase($aMarkup[$aMarkup.Max]) <> LCase(sPattern) Then
Error.Raise("Mismatched markup: </" & sPattern & "> against <" & $aMarkup[$aMarkup.Max] & ">") Error.Raise("Mismatched markup: </" & sPattern & "> against <" & $aMarkup[$aMarkup.Max] & ">")
Endif Endif
sResult &= "</" & sPattern & ">" sResult &= "</" & sPattern & ">"