diff options
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_( |