diff options
| -rw-r--r-- | perl-install/lang.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/lang.pm b/perl-install/lang.pm index e1ee01313..d1cde6002 100644 --- a/perl-install/lang.pm +++ b/perl-install/lang.pm @@ -956,7 +956,7 @@ sub langsLANGUAGE { sub utf8_should_be_needed { my ($locale) = @_; - my @l = uniq(grep { $_ ne 'C' } map { l2charset($_) } langs($locale->{langs})); + my @l = uniq(grep { $_ ne 'C' } map { l2charset($_) } $locale->{lang}, langs($locale->{langs})); @l > 1 || any { /utf|unicode/ } @l; } |