From 08a12adab7f0d6cfdc8297914cab3627aaea47f5 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Fri, 27 May 2005 09:36:29 +0000
Subject: (selectCountry) fix warning and cleanup

---
 perl-install/any.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl-install/any.pm b/perl-install/any.pm
index 2a6b55c08..9b99b5ba2 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -791,7 +791,7 @@ sub selectCountry {
     my ($other, $ext_country);
     member($country, @best) or ($ext_country, $country) = ($country, $ext_country);
 
-    my $format = sub { local $_ = $_[0]; s/(.*)\+(.*)/\1|\1+$2/ if /\+/ ; $_ };
+    my $format = sub { $_[0] =~ /(.*)\+(.*)/ ? "$1|$1+$2" : $_[0] };
     $locale->{IM} = $format->($locale->{IM});
 
     $in->ask_from_(
-- 
cgit v1.2.1