From 369fce11f7d28a847e2d1bc6d68223ce574a2fc0 Mon Sep 17 00:00:00 2001
From: "Thierry.Vignaud" <thierry.vignaud@gmail.com>
Date: Tue, 27 May 2014 22:04:09 +0200
Subject: kill useless argument

It is no more provided for 14+ years...
(commit 891947e23e895cf6fdd465e2c7a36c885a0bf73e)
---
 perl-install/lang.pm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'perl-install')

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;
 }
 
-- 
cgit v1.2.1