diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2005-05-27 09:36:29 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2005-05-27 09:36:29 +0000 |
| commit | 08a12adab7f0d6cfdc8297914cab3627aaea47f5 (patch) | |
| tree | b447c89112474e61fc2a269e2df722def8f117f2 /perl-install | |
| parent | 49d76cc5bd9501777486bea0c3cd305eec2b1476 (diff) | |
| download | drakx-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.pm | 2 |
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_( |