From e5a66e073f26536a114b633504c475b5b1b8c845 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 5 Aug 2003 16:17:43 +0000 Subject: fix an old typo --- perl-install/any.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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; -- cgit v1.2.1