[Po4a-commits] "po4a/lib/Locale/Po4a Man.pm,1.200,1.201"

[Nicolas FRANCOIS]

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

Modified Files:
	Man.pm 
Log Message:
Die on unrecognised '<' sequences in msgstr strings. Thanks to Robert
Luberda <robert at debian.org> for the patch. This fix Debian's bug #450892.


Index: Man.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Man.pm,v
retrieving revision 1.200
retrieving revision 1.201
diff -u -d -r1.200 -r1.201
--- Man.pm	13 Aug 2007 21:18:39 -0000	1.200
+++ Man.pm	13 Jan 2008 15:47:15 -0000	1.201
@@ -1079,6 +1079,12 @@
             $str.= "\n$t3";
         }
     }
+    my $str2 = $str;
+    $str2 =~ s/E<[gl]t>//g;
+    die wrap_ref_mod($ref||$self->{ref}, "po4a::man",
+                     dgettext("po4a","Unknown '<' or '>' sequence. ".
+                                     "Faulty message: %s"),$str)
+        if $str2 =~ /[<>]/;
     $str =~ s/E<gt>/>/mg;
     $str =~ s/E<lt>/</mg;
     # Don't do that, because we'll go into trouble if previous line was .TP