From 3f3ced984833bf1084447c1afd3cfc7d17d0838b Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 13 Apr 2000 23:27:43 +0000
Subject: no_comment

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

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

diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index 5cf74d227..cb81ad4ff 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -105,10 +105,11 @@ sub selectPath {}
 #------------------------------------------------------------------------------
 sub selectInstallClass($@) {
     my ($o) = @_;
-    $o->{installClass} ||= "normal";
+    $o->{installClass} ||= $::corporate ? "corporate" : "normal";
     $o->{security} ||= ${{
 	normal    => 2,
 	developer => 3,
+	corporate => 3,
 	server    => 4,
     }}{$o->{installClass}};
 }
@@ -786,7 +787,7 @@ sub miscellaneous {
     $o->{security} ||= $s{SECURITY} if exists $s{SECURITY};
 
     $ENV{SECURE_LEVEL} = $o->{security};
-    add2hash_ $o, { useSupermount => $o->{security} < 4 };
+    add2hash_ $o, { useSupermount => $o->{security} < 4 && $o->{installClass} !~ /corporate|server/ };
 
     cat_("/proc/cmdline") =~ /mem=(\S+)/;
     add2hash_($o->{miscellaneous} ||= {}, { numlock => !$o->{pcmcia}, $1 ? (memsize => $1) : () });
-- 
cgit v1.2.1