From 0502d0eba5b0688bdbc3df7eef57eff5a0929e10 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Mon, 25 Feb 2008 18:32:37 +0000 Subject: fix crash when weirdly translated locale country contains metacharacters (from Cosmin Humeniuc) --- lib/network/netconnect.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lib') diff --git a/lib/network/netconnect.pm b/lib/network/netconnect.pm index 097bc77..2d0a60b 100644 --- a/lib/network/netconnect.pm +++ b/lib/network/netconnect.pm @@ -189,7 +189,7 @@ sub real_main { @providers_data = $connection->get_providers; require lang; my $locale_country = lang::c2name($::o->{locale}{country} || lang::read()->{country}); - $provider_name = find { /^$locale_country/ } sort(keys %{$providers_data[0]}); + $provider_name = find { /^\Q$locale_country\E/ } sort(keys %{$providers_data[0]}); }, name => sub { $net->{type}->get_type_name . "\n\n" . N("Please select your provider:") }, data => sub { -- cgit v1.2.1