From ebb94b885b2d62af371893a9e60ab2f266842cd6 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 28 Nov 2005 18:07:07 +0000 Subject: simplify --- perl-install/network/netconnect.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/network') diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm index 74234c38e..f48872887 100644 --- a/perl-install/network/netconnect.pm +++ b/perl-install/network/netconnect.pm @@ -700,7 +700,7 @@ Take a look at http://www.linmodems.org"), if (!$adsl_provider) { require lang; my $locale_country = lang::c2name($::o->{locale}{country} || lang::read()->{country}); - $adsl_provider = find { $_ =~ /^$locale_country/ } sort(keys %adsl_data); + $adsl_provider = find { /^$locale_country/ } sort(keys %adsl_data); } }, name => N("Please choose your ADSL provider"), -- cgit v1.2.1