From eaa1d34e51c9102de4dd26fed5fd0763c4507920 Mon Sep 17 00:00:00 2001
From: Guillaume Cottenceau <gc@mandriva.com>
Date: Tue, 11 Feb 2003 13:53:30 +0000
Subject: have compatibility with old $o->{lang} for not breaking existing auto
 install files

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

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

diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index d5c7b5854..1cd4d5bf3 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -88,6 +88,10 @@ sub set_help { 1 }
 #------------------------------------------------------------------------------
 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});
+
     lang::set($o->{locale}{lang}, !$o->isa('interactive::gtk'));
     $o->{locale}{langs} ||= { $o->{locale}{lang} => 1 };
 
-- 
cgit v1.2.1