From 5b6577ab89931ba44492d98354b7a5e09c09195a Mon Sep 17 00:00:00 2001
From: Guillaume Cottenceau <gc@mandriva.com>
Date: Fri, 21 Nov 2003 18:00:47 +0000
Subject: fix old-style call of lang::set, don't call it in move

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

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

diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index 374f5dc56..4ce50506a 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -555,7 +555,7 @@ sub main {
 	}
     }
 
-    $o->{locale}{lang} = lang::set($o->{locale}{lang}) if $o->{locale}{lang} ne 'en_US'; #- mainly for defcfg
+    $o->{locale}{lang} = lang::set($o->{locale}) if $o->{locale}{lang} ne 'en_US' && !$::move; #- mainly for defcfg
 
     start_i810fb();
 
-- 
cgit v1.2.1