summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/any.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm
index 4eaa6f7e3..01f52337f 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -719,7 +719,7 @@ sub selectCountry {
[ if_(@best, { val => \$country, type => 'list', format => \&lang::c2name,
list => \@best, sort => 1 }),
{ val => \$ext_country, type => 'list', format => \&lang::c2name,
- list => [ difference2(\@countries, \@best) ], advanced => @best }
+ list => [ difference2(\@countries, \@best) ], advanced => scalar(@best) }
]) or return;
$locale->{country} = $other || !@best ? $ext_country : $country;