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:
Stefan Schantl
2015-04-22 18:18:38 +02:00
parent a54ec49e18
commit b013822b99
4 changed files with 7 additions and 7 deletions

View File

@@ -17,7 +17,7 @@ package General;
use strict;
use Socket;
use IO::Socket;
use Locale::Country;
use Locale::Codes::Country;
use Net::SSLeay;
use Net::IPv4Addr qw(:all);
$|=1; # line buffering

View File

@@ -23,7 +23,7 @@
package GeoIP;
use Locale::Country;
use Locale::Codes::Country;
# Function to get the flag icon for a specified country code.
sub get_flag_icon($) {
@@ -81,7 +81,7 @@ sub get_full_country_name($) {
elsif ($code eq "yu") { $name = "Yugoslavia" }
else {
# Use perl built-in module to get the country code.
$name = &Locale::Country::code2country($code);
$name = &Locale::Codes::Country::code2country($code);
}
return $name;