if (ref $config{po_slave_languages} eq 'ARRAY') {
foreach my $pair (@{$config{po_slave_languages}}) {
my ($code, $name)=splitlangpair($pair);
- if (defined $code) {
+ if (defined $code && ! exists $slavelanguages{$code}) {
push @slavelanguages, $code;
$slavelanguages{$code} = $name;
}
if (! defined $code || ! defined $name ||
! length $code || ! length $name) {
# not a fatal error to avoid breaking if used with web setup
- print STDERR sprintf(gettext("%s has invalid syntax: must use CODE|NAME"),
- $pair)."\n";
+ warn sprintf(gettext("%s has invalid syntax: must use CODE|NAME"),
+ $pair);
}
return $code, $name;