Репозитории ALT
Группа :: Разработка/Tcl
Пакет: tcl-xml
Главная Изменения Спек Патчи Sources Загрузить Gear Bugs and FR Repocop
Патч: 0003-FEDORA-sgmlparser.patch
Скачать
Скачать
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