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