mirror of
https://github.com/vincentmli/bpfire.git
synced 2026-04-26 02:42:58 +02:00
Rename Locale::Country to Locale::Codes::Country in various scripts.
The new Locale-Country version needs to be loaded and used by specifing Locale::Codes::Country since an upstream API change. Adjusting various perl scripts to use the module in the proper way again.
This commit is contained in:
@@ -21,7 +21,7 @@
|
||||
|
||||
use strict;
|
||||
|
||||
use Locale::Country;
|
||||
use Locale::Codes::Country;
|
||||
|
||||
my $flagdir = '/srv/web/ipfire/html/images/flags';
|
||||
my $lines = '1';
|
||||
|
||||
@@ -20,7 +20,7 @@
|
||||
###############################################################################
|
||||
|
||||
use strict;
|
||||
use Locale::Country;
|
||||
use Locale::Codes::Country;
|
||||
|
||||
# enable only the following on debugging purpose
|
||||
use warnings;
|
||||
@@ -323,9 +323,9 @@ END
|
||||
<option value=''>- $Lang::tr{'tor exit country any'} -</option>
|
||||
END
|
||||
|
||||
my @country_names = Locale::Country::all_country_names();
|
||||
my @country_names = Locale::Codes::Country::all_country_names();
|
||||
foreach my $country_name (sort @country_names) {
|
||||
my $country_code = Locale::Country::country2code($country_name);
|
||||
my $country_code = Locale::Codes::Country::country2code($country_name);
|
||||
$country_code = uc($country_code);
|
||||
print "<option value='$country_code'";
|
||||
|
||||
|
||||
Reference in New Issue
Block a user