From 2bcf257104b6572bf0b940b1f06970588f8a1bad Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 1 Oct 2003 14:34:00 +0000 Subject: perl_checker compliance --- perl-install/lang.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install') diff --git a/perl-install/lang.pm b/perl-install/lang.pm index a05706914..e5f35fb31 100644 --- a/perl-install/lang.pm +++ b/perl-install/lang.pm @@ -836,7 +836,7 @@ sub langs_selected { my ($locale) = @_; #- adding the UTF-8 flag (if not forced) depends on the selected languages $locale->{utf8} ||= l2charset($locale->{lang}) =~ /utf|unicode/ - || (uniq(grep { $_ ne 'C' } map { l2charset($_) } langs($locale->{langs}))) > 1; + || uniq(grep { $_ ne 'C' } map { l2charset($_) } langs($locale->{langs})) > 1; } sub pack_langs { -- cgit v1.2.1