From 9ed2557f2f1b86cb2ab1309aaa3a40b4e02e108d Mon Sep 17 00:00:00 2001
From: Guillaume Cottenceau <gc@mandriva.com>
Date: Tue, 11 Feb 2003 14:14:39 +0000
Subject: try to fix the $o->{lang} compat

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

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

diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index 1cd4d5bf3..348c01fc1 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -90,7 +90,7 @@ sub selectLanguage {
     my ($o) = @_;
 
     #- for auto_install compatibility with old $o->{lang}
-    $o->{locale} = lang::system_locales_to_ourlocale($o->{lang}, $o->{lang}) if $o->{lang} && !ref($o->{locale});
+    $o->{locale} = lang::system_locales_to_ourlocale($o->{lang}, $o->{lang}) if $o->{lang};
 
     lang::set($o->{locale}{lang}, !$o->isa('interactive::gtk'));
     $o->{locale}{langs} ||= { $o->{locale}{lang} => 1 };
-- 
cgit v1.2.1