From 6f5274d7bf6f99478085f0f012d98bf8c21ca6f1 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 6 Mar 2001 17:29:15 +0000 Subject: (setupSCSI): remove autoSCSI, cleanup --- perl-install/install2.pm | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/perl-install/install2.pm b/perl-install/install2.pm index 202fd21d9..245e3fd80 100644 --- a/perl-install/install2.pm +++ b/perl-install/install2.pm @@ -84,7 +84,6 @@ my @install_classes = qw(normal developer server); #-####################################################################################### $o = $::o = { # bootloader => { linear => 0, lba32 => 1, message => 1, timeout => 5, restricted => 0 }, - autoSCSI => 0, mkbootdisk => 1, #- no mkbootdisk if 0 or undef, find a floppy with 1, or fd1 #- packages => [ qw() ], partitioning => { clearall => 0, eraseBadPartitions => 0, auto_allocate => 0 }, #-, readonly => 0 }, @@ -116,7 +115,6 @@ $o = $::o = { #-mouse #-keyboard #-netc -#-autoSCSI drives hds fstab #-methods #-packages compss #-printer haveone entry(cf printer.pm) @@ -156,9 +154,7 @@ sub selectMouse { #------------------------------------------------------------------------------ sub setupSCSI { my ($clicked) = @_; - $o->{autoSCSI} ||= !$::expert; - - $o->setupSCSI($o->{autoSCSI} && !$clicked, $clicked); + $o->setupSCSI(!$::expert && !$clicked, $clicked); } #------------------------------------------------------------------------------ -- cgit v1.2.1