From ae648ccf9a8bd97534ab68993c2770b08b3efa81 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 6 Mar 2001 17:29:37 +0000 Subject: (getHds): fix for no hd detected in newbie installs --- perl-install/install_any.pm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'perl-install') diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index 57341c3f0..7c3c9d1f1 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -526,7 +526,7 @@ sub g_auto_install { my @fields = qw(mntpoint type size); $o->{partitions} = [ map { my %l; @l{@fields} = @$_{@fields}; \%l } grep { $_->{mntpoint} } @{$::o->{fstab}} ]; - exists $::o->{$_} and $o->{$_} = $::o->{$_} foreach qw(lang autoSCSI authentication printer mouse wacom netc timezone superuser intf keyboard mkbootdisk users partitioning isUpgrade manualFstab nomouseprobe crypto security netcnx useSupermount autoExitInstall); #- TODO modules bootloader + exists $::o->{$_} and $o->{$_} = $::o->{$_} foreach qw(lang authentication printer mouse wacom netc timezone superuser intf keyboard mkbootdisk users partitioning isUpgrade manualFstab nomouseprobe crypto security netcnx useSupermount autoExitInstall); #- TODO modules bootloader if (my $card = $::o->{X}{card}) { $o->{X}{$_} = $::o->{X}{$_} foreach qw(default_depth resolution_wanted); @@ -701,6 +701,7 @@ sub use_root_part { sub getHds { my ($o, $f_err) = @_; my $ok = 1; + my $try_scsi = !$::expert; my $flags = $o->{partitioning}; my @drives = detect_devices::hds(); @@ -715,7 +716,8 @@ sub getHds { !$flags->{readonly} && $f_err and $f_err->($err); }; - if (is_empty_array_ref($hds) && $o->{autoSCSI}) { + if (is_empty_array_ref($hds) && $try_scsi) { + $try_scsi = 0; $o->setupSCSI; #- ask for an unautodetected scsi card goto getHds; } -- cgit v1.2.1