diff options
| -rw-r--r-- | perl-install/any.pm | 2 |
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; |