summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-03-06 17:29:37 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-03-06 17:29:37 +0000
commitae648ccf9a8bd97534ab68993c2770b08b3efa81 (patch)
treec3f326b112d462d5ae784039178ae0794102afa6 /perl-install
parentda9db0885056824985194b1ff95d571c8a97beb7 (diff)
downloaddrakx-backup-do-not-use-ae648ccf9a8bd97534ab68993c2770b08b3efa81.tar
drakx-backup-do-not-use-ae648ccf9a8bd97534ab68993c2770b08b3efa81.tar.gz
drakx-backup-do-not-use-ae648ccf9a8bd97534ab68993c2770b08b3efa81.tar.bz2
drakx-backup-do-not-use-ae648ccf9a8bd97534ab68993c2770b08b3efa81.tar.xz
drakx-backup-do-not-use-ae648ccf9a8bd97534ab68993c2770b08b3efa81.zip
(getHds): fix for no hd detected in newbie installs
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_any.pm6
1 files changed, 4 insertions, 2 deletions
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;
}