rpms/tclxml/devel tclxml-3.1-sgmlparser.patch,NONE,1.1

[Michael Thomas]

Author: wart

Update of /cvs/extras/rpms/tclxml/devel
In directory cvs1.fedora.phx.redhat.com:/tmp/cvs-serv26297

Added Files:
	tclxml-3.1-sgmlparser.patch 
Log Message:
Add patch for BZ #474766



tclxml-3.1-sgmlparser.patch:

--- NEW FILE tclxml-3.1-sgmlparser.patch ---
--- tclxml-3.1/library/sgmlparser.tcl.orig	2008-12-17 15:40:28.000000000 -0800
+++ tclxml-3.1/library/sgmlparser.tcl	2008-12-17 15:40:56.000000000 -0800
@@ -606,7 +606,7 @@
 			    }
 			} 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)"]