summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-01-31 11:46:06 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-01-31 11:46:06 +0000
commit6beb22fa0e99bddc50770b30bb94b1538f4941eb (patch)
tree7d78ec4bd355f285b1b3e276ffcaa8e84f4f9100 /perl-install/install_steps.pm
parent093a6d2286a6b99ca692330c29eef0be235e762d (diff)
downloaddrakx-backup-do-not-use-6beb22fa0e99bddc50770b30bb94b1538f4941eb.tar
drakx-backup-do-not-use-6beb22fa0e99bddc50770b30bb94b1538f4941eb.tar.gz
drakx-backup-do-not-use-6beb22fa0e99bddc50770b30bb94b1538f4941eb.tar.bz2
drakx-backup-do-not-use-6beb22fa0e99bddc50770b30bb94b1538f4941eb.tar.xz
drakx-backup-do-not-use-6beb22fa0e99bddc50770b30bb94b1538f4941eb.zip
(selectLanguage): warning for debug
(miscellaneousBefore): don't use installClass to decide to use supermount or not. Choice is done on $::corporate. Can't say "no supermount in server installs" anymore (selectInstallClass): emptied (setupSCSI): don't configure PCMCIA if there is no PCMCIA
Diffstat (limited to 'perl-install/install_steps.pm')
-rw-r--r--perl-install/install_steps.pm17
1 files changed, 5 insertions, 12 deletions
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index 37f4c8593..36b0626d9 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -89,6 +89,8 @@ sub selectLanguage {
lang::set($o->{lang});
$o->{langs} ||= { $o->{lang} => 1 };
+ log::l("selectLanguage: pack_langs ", lang::pack_langs($o->{langs}));
+
if ($o->{keyboard_unsafe} || !$o->{keyboard}) {
$o->{keyboard_unsafe} = 1;
$o->{keyboard} = keyboard::lang2keyboard($o->{lang});
@@ -103,20 +105,11 @@ sub selectKeyboard {
#------------------------------------------------------------------------------
sub selectPath {}
#------------------------------------------------------------------------------
-sub selectInstallClass {
- my ($o) = @_;
- $o->{installClass} ||= $::corporate ? "corporate" : "normal";
- $o->{security} ||= ${{
- normal => 2,
- developer => 3,
- corporate => 3,
- server => 4,
- }}{$o->{installClass}};
-}
+sub selectInstallClass {}
#------------------------------------------------------------------------------
sub setupSCSI {
my ($o) = @_;
- modules::configure_pcmcia($o->{pcmcia});
+ modules::configure_pcmcia($o->{pcmcia}) if $o->{pcmcia};
modules::load_ide();
modules::load_thiskind('scsi|disk');
}
@@ -759,7 +752,7 @@ sub miscellaneousBefore {
$o->{security} ||= $s{SECURITY} if exists $s{SECURITY};
$ENV{SECURE_LEVEL} = $o->{security};
- add2hash_ $o, { useSupermount => $o->{security} < 4 && arch() !~ /sparc/ && $o->{installClass} !~ /corporate|server/ };
+ add2hash_ $o, { useSupermount => $o->{security} < 4 && arch() !~ /sparc/ && !$::corporate };
cat_("/proc/cmdline") =~ /mem=(\S+)/;
add2hash_($o->{miscellaneous} ||= {}, { numlock => !$o->{pcmcia}, $1 ? (memsize => $1) : () });