summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/lang.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index e5c2d29d7..01d00a1f9 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -417,8 +417,8 @@ sub standard_locale {
sub fix_variant {
my ($locale) = @_;
#- uz@Cyrl_UZ -> uz_UZ@Cyrl
- $locale =~ s/(\@\w+)_/_/;
- $locale . $1;
+ $locale =~ s/(.*)(\@\w+)(_.*)/$1$3$2/;
+ $locale;
}
sub getlocale_for_lang {