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

[Nicolas FRANCOIS]

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

Modified Files:
	Xml.pm 
Log Message:
	* lib/Locale/Po4a/Xml.pm: Fix the support for the nodefault
	option.


Index: Xml.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Xml.pm,v
retrieving revision 1.100
retrieving revision 1.101
diff -u -d -r1.100 -r1.101
--- Xml.pm	3 Mar 2009 20:25:35 -0000	1.100
+++ Xml.pm	4 Mar 2009 21:41:24 -0000	1.101
@@ -1686,7 +1686,7 @@
 	foreach my $tag (split(/\s+/s,$1)) {
 		$tag =~ m/^(.*?)(<.*)$/;
 		$self->{break}->{$2} = $1 || ""
-			unless    $list_nodefault{$tag}
+			unless    $list_nodefault{$2}
 			       or defined $self->{break}->{$2};
 	}
 
@@ -1699,7 +1699,7 @@
 	foreach my $tag (split(/\s+/s,$1)) {
 		$tag =~ m/^(.*?)(<.*)$/;
 		$self->{translated}->{$2} = $1 || ""
-			unless    $list_nodefault{$tag}
+			unless    $list_nodefault{$2}
 			       or defined $self->{translated}->{$2};
 	}
 
@@ -1712,7 +1712,7 @@
 	foreach my $tag (split(/\s+/s,$1)) {
 		$tag =~ m/^(.*?)(<.*)$/;
 		$self->{untranslated}->{$2} = $1 || ""
-			unless    $list_nodefault{$tag}
+			unless    $list_nodefault{$2}
 			       or defined $self->{untranslated}->{$2};
 	}
 
@@ -1747,7 +1747,7 @@
 	foreach my $tag (split(/\s+/s,$1)) {
 		$tag =~ m/^(.*?)(<.*)$/;
 		$self->{inline}->{$2} = $1 || ""
-			unless    $list_nodefault{$tag}
+			unless    $list_nodefault{$2}
 			       or defined $self->{inline}->{$2};
 	}
 
@@ -1760,7 +1760,7 @@
 	foreach my $tag (split(/\s+/s,$1)) {
 		$tag =~ m/^(.*?)(<.*)$/;
 		$self->{placeholder}->{$2} = $1 || ""
-			unless    $list_nodefault{$tag}
+			unless    $list_nodefault{$2}
 			       or defined $self->{placeholder}->{$2};
 	}