[Po4a-commits] "po4a/lib/Locale/Po4a Sgml.pm,1.95,1.96"

Nicolas FRANCOIS nekral-guest at alioth.debian.org
Sun Nov 27 16:10:13 UTC 2005


Update of /cvsroot/po4a/po4a/lib/Locale/Po4a
In directory haydn:/tmp/cvs-serv19675/lib/Locale/Po4a

Modified Files:
	Sgml.pm 
Log Message:
Do not add the new element definition if there is no prolog (e.g.
debian-bugs.sgml)


Index: Sgml.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Sgml.pm,v
retrieving revision 1.95
retrieving revision 1.96
diff -u -d -r1.95 -r1.96
--- Sgml.pm	27 Nov 2005 13:58:17 -0000	1.95
+++ Sgml.pm	27 Nov 2005 16:10:11 -0000	1.96
@@ -384,8 +384,8 @@
 
     # Add the definition of new tags that will be used for the
     # conditionnal inclusions
-    if ($origfile =~ /^.*<!DOCTYPE[^[]*\[/is) {
-        $origfile =~ s/^(.*<!DOCTYPE[^[]*\[)/$1 <!ELEMENT PO4ABEG - o empty> <!ATTLIST PO4ABEG name CDATA #REQUIRED> <!ELEMENT PO4AEND - o empty>/is;
+    if ($origfile =~ /^.*<!DOCTYPE[^[>]*\[/is) {
+        $origfile =~ s/^(.*<!DOCTYPE[^[>]*\[)/$1 <!ELEMENT PO4ABEG - o empty> <!ATTLIST PO4ABEG name CDATA #REQUIRED> <!ELEMENT PO4AEND - o empty>/is;
     }
 
     print STDERR "PROLOG=$prolog\n------------\n" if ($debug{'generic'});




More information about the Po4a-commits mailing list