diff options
Diffstat (limited to 'perl-install/lang.pm')
| -rw-r--r-- | perl-install/lang.pm | 4 |
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 { |