From 2845ed5595b7ffa7e06f00eda563485ed2246992 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 25 Nov 2003 13:07:47 +0000
Subject: fix nasty gc error

---
 perl-install/lang.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install/lang.pm')

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 {
-- 
cgit v1.2.1