diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2003-11-25 13:07:47 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2003-11-25 13:07:47 +0000 |
| commit | 2845ed5595b7ffa7e06f00eda563485ed2246992 (patch) | |
| tree | 193502227f1153e3489f727f5a96926e4a403644 /perl-install | |
| parent | 9412376d0e8bd594586ed36c4e36b9ff77088bf2 (diff) | |
| download | drakx-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.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 { |