diff options
| author | Thierry.Vignaud <thierry.vignaud@gmail.com> | 2014-05-27 22:04:09 +0200 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2014-05-27 22:11:00 +0200 |
| commit | 369fce11f7d28a847e2d1bc6d68223ce574a2fc0 (patch) | |
| tree | 766f254a99a117be93139cba719ba1aef4251166 | |
| parent | 98b33d9367f19f9a34f60ab12248845351deb513 (diff) | |
| download | drakx-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.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; } |