summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-11-25 13:07:47 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-11-25 13:07:47 +0000
commit2845ed5595b7ffa7e06f00eda563485ed2246992 (patch)
tree193502227f1153e3489f727f5a96926e4a403644 /perl-install
parent9412376d0e8bd594586ed36c4e36b9ff77088bf2 (diff)
downloaddrakx-2845ed5595b7ffa7e06f00eda563485ed2246992.tar
drakx-2845ed5595b7ffa7e06f00eda563485ed2246992.tar.gz
drakx-2845ed5595b7ffa7e06f00eda563485ed2246992.tar.bz2
drakx-2845ed5595b7ffa7e06f00eda563485ed2246992.tar.xz
drakx-2845ed5595b7ffa7e06f00eda563485ed2246992.zip
fix nasty gc error
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 {