From 5f002e9b3cbdc000a53ceb536497275b2ef2ce90 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Sat, 17 May 2008 11:20:55 +0000 Subject: do not vivify $::o --- lib/network/netconnect.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lib/network/netconnect.pm') diff --git a/lib/network/netconnect.pm b/lib/network/netconnect.pm index eb1b2c6..1863535 100644 --- a/lib/network/netconnect.pm +++ b/lib/network/netconnect.pm @@ -195,7 +195,7 @@ sub real_main { pre => sub { @providers_data = $connection->get_providers; require lang; - my $locale_country = lang::c2name($::o->{locale}{country} || lang::read()->{country}); + my $locale_country = lang::c2name(ref($::o) && $::o->{locale}{country} || lang::read()->{country}); my $separator = $providers_data[1]; $provider_name = find { /^\Q$locale_country$separator\E/ } sort(keys %{$providers_data[0]}); }, -- cgit v1.2.1