[Po4a-commits] "po4a/lib/Locale/Po4a Xml.pm,1.101,1.102"

[Nicolas FRANCOIS]

Update of /cvsroot/po4a/po4a/lib/Locale/Po4a
In directory alioth:/tmp/cvs-serv14588/lib/Locale/Po4a

Modified Files:
	Xml.pm 
Log Message:
	* lib/Locale/Po4a/Xml.pm: Fix the detection of tags wrongly added
	to 2 exclusive categories.


Index: Xml.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Xml.pm,v
retrieving revision 1.101
retrieving revision 1.102
diff -u -d -r1.101 -r1.102
--- Xml.pm	4 Mar 2009 21:41:24 -0000	1.101
+++ Xml.pm	4 Mar 2009 22:01:30 -0000	1.102
@@ -1769,24 +1769,24 @@
 		die wrap_mod("po4a::xml",
 		             dgettext("po4a",
 		                      "Tag '%s' both in the %s and %s categories."), $tag, "translated", "untranslated")
-			if $self->{untranslated}->{$tag};
+			if defined $self->{untranslated}->{$tag};
 	}
 	# There should be no inline, break, and placeholder tags
 	foreach my $tag (keys %{$self->{inline}}) {
 		die wrap_mod("po4a::xml",
 		             dgettext("po4a",
 		                      "Tag '%s' both in the %s and %s categories."), $tag, "inline", "break")
-			if $self->{break}->{$tag};
+			if defined $self->{break}->{$tag};
 		die wrap_mod("po4a::xml",
 		             dgettext("po4a",
 		                      "Tag '%s' both in the %s and %s categories."), $tag, "inline", "placeholder")
-			if $self->{placeholder}->{$tag};
+			if defined $self->{placeholder}->{$tag};
 	}
 	foreach my $tag (keys %{$self->{break}}) {
 		die wrap_mod("po4a::xml",
 		             dgettext("po4a",
 		                      "Tag '%s' both in the %s and %s categories."), $tag, "break", "placeholder")
-			if $self->{placeholder}->{$tag};
+			if defined $self->{placeholder}->{$tag};
 	}
 }