[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