From a1d37f6d5ddc4da5b3d4ce610568f7b7154276ea Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Sun, 10 Feb 2002 23:16:14 +0000 Subject: in case there is both ata66 (hde) and ata33 hard drives, go to expert questions directly (it would need a semi_auto asking on which drive the bios boots...) --- perl-install/any.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'perl-install') diff --git a/perl-install/any.pm b/perl-install/any.pm index 6caeef9d7..b6c6542b0 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -98,7 +98,9 @@ sub setupBootloader { my $semi_auto = !$::expert && arch() !~ /ia64/; my $ask_per_entries = $::expert || $more > 1; $automatic = 0 if arch() =~ /ppc/; #- no auto for PPC yet - if ((grep { $_->{device} =~ /^sd/ } @$hds) && (grep { $_->{device} =~ /^hd/ } @$hds)) { + if ((grep { $_->{device} =~ /^sd/ } @$hds) && (grep { $_->{device} =~ /^hd/ } @$hds) || + (grep { $_->{device} =~ /^hd[fghi]/ } @$hds) && (grep { $_->{device} =~ /^hd[abcd]/ } @$hds) || + ) { $automatic = $semi_auto = 0; #- full expert questions when there is 2 kind of disks #- it would need a semi_auto asking on which drive the bios boots... -- cgit v1.2.1