From 29f3fc79ef01db103e231647a43319022598ecbf Mon Sep 17 00:00:00 2001
From: jesus <jesus@lazarus-ide.org>
Date: Thu, 28 Aug 2014 19:29:59 +0000
Subject: [PATCH] LazUtils, allow laz2_xmlread to parse internal DOCTYPE
 definition

git-svn-id: trunk@46084 -
---
 components/lazutils/laz2_xmlread.pas | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/components/lazutils/laz2_xmlread.pas b/components/lazutils/laz2_xmlread.pas
index 6843f787b4..21bed4549c 100644
--- a/components/lazutils/laz2_xmlread.pas
+++ b/components/lazutils/laz2_xmlread.pas
@@ -2498,9 +2498,10 @@ begin
   FState := rsDTD;
   try
     FDocType.FName := ExpectName;
-    SkipS(True);
-    ParseExternalID(FDocType.FSystemID, FDocType.FPublicID, False);
-    SkipS;
+    if SkipS(false) then begin
+      ParseExternalID(FDocType.FSystemID, FDocType.FPublicID, False);
+      SkipS;
+    end;
   finally
     // DONE: append node after its name has been set; always append to avoid leak
     if FCanonical then