diff options
| -rw-r--r-- | perl-install/lang.pm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/perl-install/lang.pm b/perl-install/lang.pm index 96f963bab..6429df1b1 100644 --- a/perl-install/lang.pm +++ b/perl-install/lang.pm @@ -458,8 +458,7 @@ my %countries = ( ); sub c2name { exists $countries{$_[0]} && translate($countries{$_[0]}[0]) } sub c2locale { exists $countries{$_[0]} && $countries{$_[0]}[1] } -sub list_countries { - my (%_options) = @_; +sub list_countries() { keys %countries; } |