From a419039b11d02b7ef2b7f894b199b245a7876303 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 30 Apr 2003 10:09:27 +0000
Subject: perl_checker compliance

---
 perl-install/install_steps.pm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

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

diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index 6de423d50..ff886ad3d 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -99,8 +99,7 @@ sub selectLanguage {
     $o->{locale}{langs} ||= { $o->{locale}{lang} => 1 };
 
     if (!exists $o->{locale}{country}) {
-	lang::l2locale($o->{locale}{lang}) =~ /^.._(..)/;
-	$o->{locale}{country} = $1;
+	$o->{locale}{country} = $1 if lang::l2locale($o->{locale}{lang}) =~ /^.._(..)/;
     }
 
     lang::langs_selected($o->{locale});
-- 
cgit v1.2.1