From fec992b5a3e96e73c76792d303656a5a96719e66 Mon Sep 17 00:00:00 2001 From: "Vladimir D. Seleznev" 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