Hard-code some language translation exceptions.
authorGreg Sabino Mullane <greg@endpoint.com>
Wed, 7 Apr 2010 18:51:07 +0000 (14:51 -0400)
committerGreg Sabino Mullane <greg@endpoint.com>
Wed, 7 Apr 2010 18:51:07 +0000 (14:51 -0400)
t/03_translations.t

index e41b4e4921e1406e3a5fb7fac04263c244368f00..dc4a223729b4abf657721b26f8035db9e6605a20 100644 (file)
@@ -172,6 +172,7 @@ for my $l (sort keys %complete_langs) {
                my $val = $msg{'en'}{$msg}->[1];
                my $lval = $msg{$l}{$msg}->[1];
                my $indent = $msg{$l}{$msg}->[0];
+               next if $language eq 'French' and ($msg eq 'PID' or $msg eq 'port');
                if ($val eq $lval and $indent) {
                        fail qq{Message '$msg' in language $language appears to not be translated, but it not marked as such};
                        $ok = 0;