summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2005-05-27 09:36:29 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2005-05-27 09:36:29 +0000
commit08a12adab7f0d6cfdc8297914cab3627aaea47f5 (patch)
treeb447c89112474e61fc2a269e2df722def8f117f2 /perl-install
parent49d76cc5bd9501777486bea0c3cd305eec2b1476 (diff)
downloaddrakx-08a12adab7f0d6cfdc8297914cab3627aaea47f5.tar
drakx-08a12adab7f0d6cfdc8297914cab3627aaea47f5.tar.gz
drakx-08a12adab7f0d6cfdc8297914cab3627aaea47f5.tar.bz2
drakx-08a12adab7f0d6cfdc8297914cab3627aaea47f5.tar.xz
drakx-08a12adab7f0d6cfdc8297914cab3627aaea47f5.zip
(selectCountry) fix warning and cleanup
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/any.pm2
1 files changed, 1 insertions, 1 deletions
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_(