[Po4a-commits] po4a/lib/Locale/Po4a Xml.pm,1.21,1.22
Jordi Vilalta
po4a-devel@lists.alioth.debian.org
Fri, 28 Jan 2005 21:39:04 +0000
Update of /cvsroot/po4a/po4a/lib/Locale/Po4a
In directory haydn:/tmp/cvs-serv6115/lib/Locale/Po4a
Modified Files:
Xml.pm
Log Message:
Fix the reported d-i's manual issues in Xml.pm
Index: Xml.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Xml.pm,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -d -r1.21 -r1.22
--- Xml.pm 7 Jan 2005 22:50:52 -0000 1.21
+++ Xml.pm 28 Jan 2005 21:39:02 -0000 1.22
@@ -377,7 +377,7 @@
sub tag_extract_comment {
my ($self,$remove)=(shift,shift);
- my ($eof,@tag)=$self->get_string_until('-->',{include=>1,remove=>$remove,unquoted=>1});
+ my ($eof,@tag)=$self->get_string_until('-->',{include=>1,remove=>$remove});
return ($eof,@tag);
}
@@ -468,7 +468,7 @@
my $name = $self->get_tag_name(@tag);
my $test = pop @path;
- if ( $test ne $name ) {
+ if (!defined($test) || $test ne $name ) {
die "po4a::xml: ".sprintf(dgettext("po4a","Unexpected closing tag </%s> found in %s. The main document may be wrong."),$name,$tag[1])."\n";
}
return $self->join_lines(@tag);