[Po4a-commits] po4a/lib/Locale/Po4a Xml.pm,1.21,1.22

[Jordi Vilalta]

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);