From 246b337f95f3e0edc21d31b4b6a1d826d0a120cc Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 7 Nov 2000 17:38:01 +0000
Subject: (main): $::oem is now global :-(  (needed in install_steps.pm)

---
 perl-install/install2.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index f1e3e4d62..bb9f55bbc 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -455,7 +455,7 @@ sub main {
 
 #-    c::unlimit_core() unless $::testing;
 
-    my ($cfg, $patch, $oem, @auto);
+    my ($cfg, $patch, @auto);
     my %cmdline; map { 
 	my ($n, $v) = split '=';
 	$cmdline{$n} = $v || 1;
@@ -476,7 +476,7 @@ sub main {
     map_each {
 	my ($n, $v) = @_;
 	my $f = ${{
-	    oem       => sub { $oem = $v },
+	    oem       => sub { $::oem = $v },
 	    lang      => sub { $o->{lang} = $v },
 	    flang     => sub { $o->{lang} = $v ; push @auto, 'selectLanguage' },
 	    method    => sub { $o->{method} = $v },
@@ -603,7 +603,7 @@ sub main {
     if ($o->{meta_class} eq 'desktop') {
 	$o->{installClass} = 'normal';
     }
-    if ($oem) {
+    if ($::oem) {
 	$o->{partitioning}{use_existing_root} = 1;
 	$o->{partitioning}{auto_allocate} = 1;
 	$o->{compssListLevel} = 50;
-- 
cgit v1.2.1