summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry.Vignaud <thierry.vignaud@gmail.com>2014-05-27 22:04:09 +0200
committerThierry Vignaud <thierry.vignaud@gmail.com>2014-05-27 22:11:00 +0200
commit369fce11f7d28a847e2d1bc6d68223ce574a2fc0 (patch)
tree766f254a99a117be93139cba719ba1aef4251166
parent98b33d9367f19f9a34f60ab12248845351deb513 (diff)
downloaddrakx-369fce11f7d28a847e2d1bc6d68223ce574a2fc0.tar
drakx-369fce11f7d28a847e2d1bc6d68223ce574a2fc0.tar.gz
drakx-369fce11f7d28a847e2d1bc6d68223ce574a2fc0.tar.bz2
drakx-369fce11f7d28a847e2d1bc6d68223ce574a2fc0.tar.xz
drakx-369fce11f7d28a847e2d1bc6d68223ce574a2fc0.zip
kill useless argument
It is no more provided for 14+ years... (commit 891947e23e895cf6fdd465e2c7a36c885a0bf73e)
-rw-r--r--perl-install/lang.pm3
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;
}