From fec992b5a3e96e73c76792d303656a5a96719e66 Mon Sep 17 00:00:00 2001

From: "Vladimir D. Seleznev" <vseleznv@altlinux.org>

Date: Tue, 26 Nov 2019 20:14:09 +0300

Subject: [PATCH 3/4] FEDORA sgmlparser

---

 tclxml/tclxml-tcl/sgmlparser.tcl | 2 +-

 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tclxml/tclxml-tcl/sgmlparser.tcl b/tclxml/tclxml-tcl/sgmlparser.tcl

index 1da1d3b..563db1a 100755

--- a/tclxml/tclxml-tcl/sgmlparser.tcl

+++ b/tclxml/tclxml-tcl/sgmlparser.tcl

@@ -603,7 +603,7 @@ proc sgml::parseEvent {sgml args} {

 			    }

 			} elseif {![regexp ^$Name\$ $tag]} {

 			    uplevel #0 $options(-errorcommand) [list illegalcharacter "illegal character in processing instruction target \"$tag\""]

-			} elseif {[regexp {[xX][mM][lL]} $tag]} {

+			} elseif {[regexp {^[xX][mM][lL]} $tag]} {

 			    uplevel #0 $options(-errorcommand) [list illegalcharacters "characters \"xml\" not permitted in processing instruction target \"$tag\""]

 			} elseif {![regsub {\?$} $param {} param]} {

 			    uplevel #0 $options(-errorcommand) [list missingquestion "PI: expected '?' character around line $state(line)"]

-- 

2.24.0