From 4d5530fe42b7ef35e362af65c1ff03102d4ceb27 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 8 Nov 2007 15:42:24 +0000
Subject: fix regression(?) introduced in "r207416 2004-05-12" when cleaning
 standard_locale()

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

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

diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index 555d811a8..9b4efa365 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -465,8 +465,9 @@ sub standard_locale {
     my $main_locale = locale_to_main_locale($lang);
     if ($main_locale ne $lang) {
 	standard_locale($main_locale, $country, $prefer_lang);
+    } else {
+	'';
     }
-    '';
 }
 
 sub fix_variant {
-- 
cgit v1.2.1